【EXCEL VBA】フォルダ配下のファイル一覧を再帰的に取得したい

前回の記事ではファイル一覧を取得する際に「fso.GetFolder(path).Files」を使用しましたが、今回はフォルダ一覧も取得する必要があるため「fso.GetFolder(path).SubFolders」も使用します。 サンプルプログラムを確認する（コピペOK） Sub sample() Call getFilesRecursive("C:\Drivers") End Sub Sub getFilesRecursive(path As String) Dim fso As FileSystemObject: Set fso = New FileSystemObject Dim objFolder As folder Dim objFile As file ' GetFolder(フォルダ名).SubFoldersでフォルダ配下のフォルダ一覧を取得 For Each objFo