※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

ダイアログからフォルダパスを取得


  • ソース
' SelectFolderPathWithDialog
' フォルダ選択ダイアログを使用し、フォルダパスを選択する
' キャンセルを押された場合は、空文字を返却する
' 引数:なし
' 戻り値:String:ダイアログで取得したパス
Public Function SelectFolderPathWithDialog() As String
    Dim resultStr As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        'ダイアログのタイトル
        .Title = "フォルダを選択してください"

        If .Show = True Then
        ' OKが押されている場合
            resultStr = CStr(.SelectedItems(1))
        End If
    End With
    
    ' 有効なパスが選択された場合
    If Dir(resultStr, vbDirectory) <> "" And Len(resultStr) > 0 Then
        resultStr = resultStr & "\"
    Else
        resultStr = ""
    End If
    
    SelectFolderPathWithDialog = resultStr
End Function