任意ファイル(場所)からコマンドプロンプトを出してみようVBS編

• 任意ファイル(場所)からコマンドプロンプトを出してみよう(hirax.net)

http://hirax.net/diaryweb/2008/12/26.html#7557

vbscript版を作りました。

'CmdHere.vbs
' 2008/12/27 robbie21
Dim fs 
set fs = CreateObject("Scripting.FileSystemObject")
Dim f
f = fs.GetParentFolderName(WScript.Arguments.Item(0))
Dim WshShell
Set WshShell = CreateObject ("Wscript.Shell")
WshShell.CurrentDirectory = f

WshShell.Run("cmd")

使い方は、同じようにsendtoフォルダにショートカットを設定