[フォルダを移動する]

C:\Work フォルダを C:\Test フォルダに名称変更しています。

【ソースコード】

[tips0080.vbs]
Option Explicit
On Error Resume Next

Dim objFSO          ' FileSystemObject
Dim strSrcFolder    ' 移動元フォルダ名
Dim strDstFolder    ' 移動先フォルダ名

strSrcFolder = "C:\Work"
strDstFolder = "C:\Test"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
    objFSO.MoveFolder strSrcFolder, strDstFolder
    If Err.Number = 0 Then
        WScript.Echo strSrcFolder & " を " & _
            strDstFolder & " にリネームしました。"
    Else
        WScript.Echo "エラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objFSO = Nothing

【実行結果】

C:\> cscript //NoLogo tips0080.vbs
C:\Work を C:\Test にリネームしました。