vbs文件夾列表中的錯誤陷阱

Question

我正在製作一個腳本來列出文件夾中的所有文件。
其目的是列出每臺服務器上的特定文件夾中的所有文件。
所以我有一個excel文件，第一行每個servername。

當然，我沒有權限在每臺服務器上或沒有腳本文件夾;所以有時我會得到一個「找不到路徑」的錯誤。
儘管我用On Error Resume Next它仍然會引發錯誤。

我需要類似try-catch的東西，但是dobs不存在於vbs中。 如何嘗試連接到文件夾並忽略出現錯誤？

的違規行爲Set folder = ...

Do While objSheet.Cells(1, intCol).Value <> "" 
    intRow = 2 
    sFolder ="\\" & objSheet.Cells(1, intCol).Value & "\C$\Scripts" 
    'msgbox sFolder 

    Set folder = fso.GetFolder(sFolder) 
    Set files = folder.Files 
... 

的完整代碼：https://gist.github.com/076501c940e8388b5b39

Answer 1

您可以檢查是否有fso.FolderExists（sFolder）存在一個文件夾：

If fso.FolderExists(sFolder) then 
    Set folder = fso.GetFolder(sFolder) 
    Set files = folder.Files  

    For each file In files 
     'msgbox file.name 
     objSheet.Cells(intRow, intCol).Value = file.Name 
     introw = introw + 1 
    Next  
    objExcel.ActiveWorkbook.Save 
    intCol = intcol+1 
End if