EA_ShowFolderSelectDlg

機能説明
フォルダ選択ダイアログを表示し、選択されたファイルの絶対パスを取得します。

定義
Public Function EA_ShowFolderSelectDlg (
ByVal ea_title As String,
ByVal ea_root As String,
ByRef ea_path As String
) As Long

引数
ea_title
ダイアログタイトルを設定します。
※デフォルト表示は("":空)を設定
ea_root
初期表示されるディレクトを設定します。
※("":空)を設定した場合、デフォルトの動作となります。
ea_path
ユーザによって選択されたパスが設定されます。

戻り値
正常:選択されたファイル件数(1)が返却されます。
異常:キャンセルされた場合に(0)が返却されます。

使用例1
タイトルや初期表示フォルタを設定してダイアログを開く場合は、下記のように関数を呼び出してください。
                                    
Sub Main()
    Dim ea_root As String
    Dim ea_path As String
    Dim ea_fcnt As Integer
    ea_root = "c:¥"
    ea_fcnt = funcFolderSelectDlg(ea_root, ea_path)
    MsgBox "選択件数:" & ea_fcnt & vbCrLf & "選択パス:" & ea_path
End Sub

Function funcFolderSelectDlg(ByVal ea_root As String, ByRef ea_path As String) As Integer
    Dim ea_res As Integer
    funcFolderSelectDlg = -1
    'フォルダ選択ダイアログの表示
    ea_res = EA_ShowFolderSelectDlg("設定フォルダを選択", ea_root, ea_path)
    funcFolderSelectDlg = ea_res
End Function
                                    
                                
使用例2
デフォルトの状態でダイアログを開く場合は、下記のように関数を呼び出してください。
                                    
Sub Main()
    Dim ea_path As String
    Dim ea_fcnt As Integer
    ea_fcnt = funcFolderSelectDlg(ea_path)
    MsgBox "選択件数:" & ea_fcnt & vbCrLf & "選択パス:" & ea_path
End Sub

Function funcFolderSelectDlg(ByRef ea_path As String) As Integer
    Dim res As Integer
    funcFolderSelectDlg = -1
    'フォルダ選択ダイアログの表示
    res = EA_ShowFolderSelectDlg("", "", ea_path)
    funcFolderSelectDlg = res
End Function
                                    
                                

クラウドソーシング「ランサーズ」