VBAで指定したフォルダのファイルパスを出力する

VBAで指定したフォルダのファイルパスを出力する。

Excel2010で確認。

Sub fileDialogTest()
  Dim fd As FileDialog
  ' フォルダ選択ダイアログを表示する
  Set fd = Application.FileDialog(msoFileDialogFolderPicker)
  If Not fd.Show Then
    Debug.Print 'File Dialog is Canceled'
    Exit Sub
  End If

  Dim fso As New FileSystemObject
  Dim f As File
  ' 選択したフォルダパスにあるファイル分ループする
  For Each f In fso.GetFolder(fd.SelectedItems(1)).Files
    ' Immediate windowにファイルパスを出力する
    Debug.Print f
  Next
End Sub

Files プロパティ