作成 2010.01.08
更新 2010.01.08
更新 2010.01.08
VBScript でフォルダ選択ダイアログ
このサンプルを実行するとフォルダを選択するダイアログボックスを表示します。
Dim ShellApp
Dim objFolder
Set ShellApp = CreateObject("Shell.Application")
Set objFolder = ShellApp.BrowseForFolder(0, "フォルダを選択します", 1)
MsgBox objFolder.items.Item.Path, vbOKOnly, "フルパス"
タグ: VBScript