フォルダ名取得

◆FileDialogオブジェクト
----------------------------------------------------------------
Sub Sample1()
    With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = True Then
        MsgBox .SelectedItems(1)
    End If
    End With
End Sub
----------------------------------------------------------------