Sub 全フォルダ内のパスとファイル名を取得回収する()
    
    Set ファイル = CreateObject("Scripting.FileSystemObject")
    
    For Each フォルダ In ファイル.GetFolder(ThisWorkbook.Path).SubFolders
    
        ファイル名 = Dir(フォルダ.Path & "\" & "*.*")
        
        Do While ファイル名 <> "" 'ファイルがなくなるまで継続
        
            行数 = 行数 + 1 '次の行へ
            
            Cells(行数, "A") = フォルダ.Path & "\" & ファイル名
            
            ファイル名 = Dir() '次のファイルを取得
            
        Loop

    Next フォルダ
    
End Sub