Dim objFso, strSourcePath, strDestPath
strSourcePath = WScript.Arguments.item(0)
strDestPath = WScript.Arguments.item(1)
Set objFso = CreateObject("Scripting.FileSystemObject")
If objFso.FileExists(strSourcePath) then
    objFso.MoveFile strSourcePath, strDestPath
End If
Set objFso = Nothing

+ Recent posts