vba 文件夹递归查找

 因为你遍历子文件夹时调用带参数的Dir(folder, vbDirectory)，
子文件夹遍历结束后，再调用Dir默认的路径仍然是子文件夹，已经遍历完了，所以出错。
建议使用下面方法：
Sub test002(folderspec)
    Dim fs, f, f1, sf, fc
    Dim mypath As String, fn As String
    Dim i As Long, lmyRow As Long
    
    On Error Resume Next
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set sf = f.SubFolders
    Set fc = f.Files
    
    For Each f1 In sf
        fn = f1.Name
        mypath = folderspec & fn & "\"
        ShowFolderList mypath
    Next
    For Each f1 In fc
        fn = f1.Name
    Next
End Sub