[カレントフォルダを変更する]

カレントフォルダを変更します。
フォルダの移動を確認するために、dir コマンドを実行しています。
フォルダの変更は、スクリプトの中だけで有効です。

【ソースコード】

[tips0119.vbs]
Option Explicit
On Error Resume Next

Dim objWshShell     ' WshShell オブジェクト
Dim strNewFolder    ' 移動するフォルダ

Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
    strNewFolder = "C:\Temp"
    objWshShell.CurrentDirectory = strNewFolder
    WScript.Echo "フォルダを " & strNewFolder & " に変更しました。"
    WScript.Echo objWshShell.Exec("cmd.exe /C dir").StdOut.ReadAll
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objWshShell = Nothing

【実行結果】

C:\> cscript //NoLogo tips0119.vbs
フォルダを C:\Temp に変更しました。
 ドライブ C のボリューム ラベルは Windows です
 ボリューム シリアル番号は 985C-257E です
 C:\temp のディレクトリ
2005/01/09  14:44       <DIR>          .
2005/01/09  14:44       <DIR>          ..
2005/01/09  13:57                   50 test.bat
2005/01/07  16:10                   40 test.txt
2005/01/09  15:26                  984 test.vbs
               4 個のファイル               1,074 バイト
               2 個のディレクトリ   7,995,146,240 バイトの空き領域