在vba中为递归循环添加错误处理程序，以跳过权限被拒绝的文件/文件夹

Sub RecursiveProcess(folderPath As String)
    On Error GoTo ErrorHandler
    
    Dim fileSystem As Object
    Dim folder As Object
    Dim subFolder As Object
    Dim file As Object
    
    Set fileSystem = CreateObject("Scripting.FileSystemObject")
    Set folder = fileSystem.GetFolder(folderPath)
    
    ' 处理当前文件夹中的文件
    For Each file In folder.Files
        ' 处理文件的代码
    Next file
    
    ' 递归处理子文件夹
    For Each subFolder In folder.SubFolders
        RecursiveProcess subFolder.Path
    Next subFolder
    
    Exit Sub

ErrorHandler:
    ' 跳过权限被拒绝的文件/文件夹
    If Err.Number = 70 Then ' 权限被拒绝的错误代码
        Err.Clear
        Resume Next
    Else
        ' 处理其他错误的代码
    End If
End Sub

Sub TestRecursiveProcess()
    Dim folderPath As String
    folderPath = "C:\Path\To\Your\Folder"
    
    RecursiveProcess folderPath
End Sub