[ファイルを移動する]

C:\Work\Test.txt ファイルを C:\Test フォルダに移動しています。

【ソースコード】

[tips0087.vbs]
Option Explicit
On Error Resume Next

Dim objFSO          ' FileSystemObject
Dim strSrcFile      ' 移動対象ファイル
Dim strDstFile      ' 移動先ファイル名

strSrcFile = "C:\Work\Test.txt"
strDstFile = "C:\Test\Test.txt"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
    objFSO.MoveFile strSrcFile, strDstFile
    If Err.Number = 0 Then
        WScript.Echo strSrcFile & " を " & _
            strDstFile & " に移動しました。"
    Else
        WScript.Echo "エラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objFSO = Nothing

【実行結果】

C:\> cscript //NoLogo tips0087.vbs
C:\Work\Test.txt を C:\Test\Test.txt に移動しました。