即使發生錯誤，Dir（fpath）也會導致無法訪問網絡位置的錯誤

Question

這可能是一個不尋常的問題 - 我當然無法找到任何內容。 基本上我正在檢查是否存在使用Dir()的位置。如果用戶在特定的工作網絡上，那麼它很好，但是如果他們不是，那麼驗證失敗（因爲它應該）並且用戶沒有訪問權限。即使使用錯誤捕獲，Dir()也會導致表單發生錯誤。

有沒有人有這個錯誤，並知道如何解決它？

Answer 1

我只是再次嘗試，並由於某種原因，現在它的作品。要麼我以前是白癡，要麼差異在於使用E.2016。前者更可能。下面的代碼的的片段工作。

Dim bErrorState As Boolean 

    fPath = fRoot & Environ("USERNAME") & "\OMC_Template_PersonalSettings.txt" 

    Err.Clear 
    On Error GoTo SetErrorState 
    bErrorState = Dir(fPath) = "" 
SetErrorState: 
    If Err <> 0 Then bErrorState = True 
    On Error GoTo 0 

    If bErrorState Then 
     fPath = "C:\Users\" & Environ("USERNAME") & "\OMC_Template_PersonalSettings.txt" 
     If Dir(fPath) = "" Then Exit Sub 
    End If 

不好意思浪費大家的時間。希望這只是一個如何捕捉錯誤的例子。