VBScript
VBScriptで実行フォルダを表示2015/06/09
vbsを実行したときにそのフォルダパス取得して表示するものを作ってみた。
ファイルを好きなフォルダに配置して実行するとそのフォルダのパスを表示します。
【実行イメージ】
					Dim objWS
'WScript.Shellオブジェクトの作成
Set objWS = CreateObject("WScript.Shell")
'カレントディレクトリを表示
msgbox "実行ディレクトリ = " & objWS.CurrentDirectory
'オブジェクト破棄
Set objWS = Nothing