vbscript跳过将在递归调用中引发权限被拒绝错误的文件夹

Question

I am looping thru all folders on my C: drive in windows 7. I am using vbscript. How can I detect if a permission denied error will occur on a folder so that I can skip that folder and keep processing the rest of the folders.

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

Use a strictly local "On Error Resume Next" to test whether you can access the folder-to be-processed's .Files.Count/.SubFolders.Count. If not, don't recurse.