Excel VBAでフォルダ内のファイル名・フルパスを取得する方法｜Dir関数

以下のようなシーンで利用されます。

1.フォルダ内のファイル一覧をExcelシートに出力。

2.特定の拡張子のファイルを探して処理する。

3.ファイル名を取得して他のシステムやレポートで使用する。

Dir関数を使ってファイル名を取得するポイント

1. Option Explicit
3. Sub GetFileNames()
4.     Dim folderPath As String
5.     Dim fileName As String
6.     Dim row As Long
7.     
8.     ' フォルダパスを指定
9.     folderPath = "C:\Users\User\Desktop\sourceFile"
10.     
11.     ' 最後がバックスラッシュで終わっていない場合は追加
12.     If Right(folderPath, 1) <> "\" Then
13.         folderPath = folderPath & "\"
14.     End If
15.     
16.     ' 初期設定
17.     fileName = Dir(folderPath) ' 最初のファイル名を取得
18.     row = 1 ' 出力先の行番号
19.     
20.     ' シートに結果を出力
21.     Do While fileName <> ""
22.         Cells(row, 1).Value = fileName ' ファイル名
23.         Cells(row, 2).Value = folderPath & fileName ' フルパス
24.         row = row + 1
25.         fileName = Dir ' 次のファイル名を取得
26.     Loop
27.     
28.     MsgBox "ファイル名を取得しました！", vbInformation
29. End Sub

特定の拡張子（例: .xlsx）のファイルだけを取得する

1. Option Explicit
3. Sub GetSpecificFiles()
4.     Dim folderPath As String
5.     Dim fileName As String
6.     Dim row As Long
7.     
8.     ' フォルダパスを指定
9.     folderPath = "C:\Users\User\Desktop\sourceFile"
10.     
11.     ' 初期設定
12.     fileName = Dir(folderPath & "*.xlsx") ' .xlsxファイルのみ取得
13.     row = 1 ' 出力先の行番号
14.     
15.     ' シートに結果を出力
16.     Do While fileName <> ""
17.         Cells(row, 1).Value = fileName ' ファイル名
18.         row = row + 1
19.         fileName = Dir ' 次のファイル名を取得
20.     Loop
21.     
22.     MsgBox "Excelファイルのみを取得しました！", vbInformation
23. End Sub

フォルダが存在しない場合にエラーを通知するコード

1. If Dir(folderPath, vbDirectory) = "" Then
2.     MsgBox "指定したフォルダが存在しません: " & folderPath, vbExclamation
3.     Exit Sub
4. End If

ネットワークドライブを使用する場合、アクセス権や接続状況に注意が必要です。空のフォルダの場合、Dir は空文字列 ("") を返すためループは実行されません。フォルダが存在しない場合のエラー処理を追加するとより堅牢になります。