[カレントフォルダを取得する]

カレントフォルダを取得します。

【ソースコード】
[tips0118.vbs]
Option Explicit
On Error Resume Next

Dim objWshShell     ' WshShell オブジェクト

Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
    WScript.Echo "現在のフォルダは " & objWshShell.CurrentDirectory & " です。"
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objWshShell = Nothing

【実行結果】
C:\Temp> cscript //NoLogo tips0118.vbs
現在のフォルダは C:\Temp です。