ディレクトリの選択、よく使うサブルーチンライブラリ
ディレクトリを選択させる場面はかなり多いです。
そのためのディレクトリ選択ダイアログを開き、選択されたディレクトリパスを取り出すサブルーチン。
ディレクトリの選択
書式 Function Run()
ディレクトリ選択ダイアログを開きディレクトリを選択させます。
使用例
Dim dirn
dirn = DirSelect.run
If dirn<>"" Then
'ディレクトリを選択された
End If
ディレクトリ選択の簡易版
GetDirPath.bas書式 Function get_dirpath()
ディレクトリを選択
使用例
Dim Dirn
Dirn = GetDirPath.get_dirpath
If Dirn<>"" Then
'選択された
End If
