回答編集履歴
2
コードブロックの言語を"VBScript"に設定:VisualBasicが無いのでVBScriptとした
test
CHANGED
@@ -12,7 +12,7 @@
|
|
12
12
|
|
13
13
|
|
14
14
|
|
15
|
-
```VB
|
15
|
+
```VBScript
|
16
16
|
|
17
17
|
' フォルダー選択ダイアログを表示
|
18
18
|
|
1
回答補足追加
test
CHANGED
@@ -4,6 +4,14 @@
|
|
4
4
|
|
5
5
|
|
6
6
|
|
7
|
+
初期選択フォルダーの指定について処理を補足するとこんな感じです
|
8
|
+
|
9
|
+
> SHBrowseForFolder()のパラメーターのBROWSEINFO.lpfn に callback function (ここではBrowseCallbackProc())を指定し、BROWSEINFO.lParam にBrowseCallbackProc()に渡すパラメーター(ここでは初期選択フォルダーのPATH)を設定します。
|
10
|
+
|
11
|
+
> このBrowseCallbackProc()では、ファイル選択ダイアログの初期化時(BFFM_INITIALIZEDのとき)に```Call SendMessageStr(lngHWnd, BFFM_SETSELECTIONA, 1&, StrConv(lngLpData, vbUnicode))```として```lngLpData```(初期選択フォルダーのPATH)を選択(```BFFM_SETSELECTIONA```)するWindowsメッセージを送信します。
|
12
|
+
|
13
|
+
|
14
|
+
|
7
15
|
```VB
|
8
16
|
|
9
17
|
' フォルダー選択ダイアログを表示
|