vbscript跳過將拋出文件夾的權限拒絕遞歸調用中的錯誤

Question

我正在使用Windows 7中的C：驅動器上的所有文件夾進行循環。我正在使用vbscript。如何檢測文件夾上是否會出現拒絕權限錯誤，以便我可以跳過該文件夾並繼續處理剩餘的文件夾。

Sub SearchForWsFiles(strFolderPath) 

    Dim objFolder 
    Dim objFile 
    Dim objSubFolder 

    Set objFolder = objFSO.GetFolder(strFolderPath) 
    objLogFile.WriteLine(objFolder.Name) 

    For Each objFile In objFolder.Files 

     If(objFSO.GetExtensionName(objFile.Name) = "ws") Then 
      objLogFile.WriteLine(objFile.Name) 
     End If 
    Next 

    For Each objSubFolder In objFolder.SubFolders 
     Call SearchForWsFiles(objSubFolder.Path) 
    Next 
End Sub 

Answer 1

使用嚴格的地方「上的錯誤繼續下一步」，以測試是否可以訪問該文件夾到待處理的.Files.Count/.SubFolders.Count。如果不是，不要遞歸。