vbscript跳过在递归调用中将抛出Permission Denied Error的文件夹

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

严格使用本地＆＃34; On Error Resume Next＆＃34;测试你是否可以访问要处理的文件夹.Files.Count / .SubFolders.Count。如果没有，请不要回复。