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