|
Set Shell = CreateObject( "Shell.Application" )
Set WshShell = CreateObject( "WScript.Shell" )
Set objFolder = Shell.BrowseForFolder( 0, "フォルダ選択", 11, 0 )
if objFolder is nothing then
Wscript.Quit
end if
WshShell.CurrentDirectory = objFolder.Self.Path
WshShell.Run( "cmd.exe" )
| |