パスとファイル名を取得する

トップページ（目次）

015.パスとファイル名を取得する

＜実行前後＞

→

Sub パスとファイル名を取得回収する()
    
    ファイル名 = Dir(ThisWorkbook.Path & "\" & "*.*")
    
    Do While ファイル名 <> "" 'ファイルがなくなるまで継続
    
        行数 = 行数 + 1 '次の行へ
        
        'ファイル名をA列に書き出し
        Cells(行数, "A") = ThisWorkbook.Path & "\" & ファイル名
        
        ファイル名 = Dir() '次のファイルを取得
    
    Loop
    
End Sub

このファイルと同一フォルダの全ファイル対象 ThisWorkbook.Path を変えれば個別パス指定可能 *.* を *.txt など拡張子を変更することも可能 ----------------------------------------- わかりやすくするために、ファイルが1つだけの場合も記述

Sub パスとファイル名を一個取得回収する()

    ファイル名 = Dir(ThisWorkbook.Path & "\" & "*.*")

    Range("A1") = ThisWorkbook.Path & "\" & ファイル名

End Sub