Forgot your password?
Document Actions
Folder選択ダイアログ
Windows ScriptでFolder選択ダイアログを使用する。
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder( 0, "フォルダ選択", 11, 0 )
if objFolder is nothing then
WScript.Quit
end if
If not objFolder.Self.IsFileSystem then
WScript.Echo "ファイルシステムではありません"
WScript.Quit
end if
WScript.Echo objFolder.Self.Path