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。 如果沒有，請不要遞歸。