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 Folder
  ' 選択したフォルダパスにあるフォルダ分ループする
  For Each f In fso.GetFolder(fd.SelectedItems(1)).SubFolders
    ' Immediate windowにフォルダパスを出力する
    Debug.Print f
  Next
End Sub

SubFolders プロパティ