GetDirPath

Summary

ダイアログからフォルダを選択し、選択されたフォルダのパスを取得するための関数です。

Function GetDirPath() As String
'ダイアログからフォルダを選択し、パスを取得する

Dim filePath As String

    filePath = Application.FileDialog(msoFileDialogFolderPicker).Show

    If filePath = "False" Then
        GetDirPath = False
        Exit Function
    Else
    End If

    GetDirPath = filePath
End Function

説明

この関数は、ダイアログを表示してユーザーにフォルダの選択を促し、選択されたフォルダのパスを取得するために使用されます。

関数では、Application.FileDialog(msoFileDialogFolderPicker) を使用してフォルダ選択ダイアログを表示し、 Show メソッドを呼び出してダイアログを表示します。
ユーザーがフォルダを選択すると、選択されたフォルダのパスが filePath 変数に格納されます。

選択されたフォルダのパスが "False" と等しい場合は、フォルダが選択されなかったことを示し、戻り値として False を返します。それ以外の場合は、選択されたフォルダのパスを戻り値として返します。

引数

• なし

戻り値

• 戻り値の型: String型 (選択されたフォルダのパス)
  - フォルダが選択された場合は、選択されたフォルダのパスが返されます。
  - フォルダが選択されなかった場合は、Falseが返されます。

Examples

使用例として、関数 GetDirPath を呼び出してダイアログからフォルダを選択し、 選択されたフォルダのパスを取得する方法が示されています。 関数の結果は、folderPath 変数に格納されます。

' ダイアログからフォルダを選択し、パスを取得する
Dim folderPath As String
folderPath = GetDirPath()