ファイル一覧を作成するツールです。
パス名を受け渡されると、そのパスのファイルを列挙します。
A列にパス名、B列にファイル名をリストします。
Sub ファイル一覧(Path As String)
Dim FileName As String
Dim i As Integer
If Right(Path, 1) <> "¥" Then
Path = Path & "¥"
End If
FileName = dir(Path)
i=1
p_loop:
If FileName <> "" Then
Cells(i, 1) = Path
Cells( i, 2) = FileName
i = i + 1
FileName = dir()
GoTo p_loop
End If
End Sub
サブフォルダは対象とする方法はex-fileで使用していますので、
そちらをご覧ください。