続・頑張れ！ひろたん！

フォルダ選択ダイアログ

Private Sub コマンド0_Click()
    ' 【参照設定】Microsoft Office xx Object Library

    Dim oFD As FileDialog
    Dim varFolder As Variant
    
    Set oFD = Application.FileDialog(msoFileDialogFolderPicker)
    With oFD
        .Title = "フォルダ選択"
        If .Show Then
            MsgBox .SelectedItems(1)
'            For Each varFolder In oFD.SelectedItems
'                MsgBox varFolder
'            Next
        End If
    End With
    
    Set oFD = Nothing
    
End Sub