[Iska]

Код:

On Error Resume Next
WScript.CreateObject("Scripting.FileSystemObject").MoveFile "C:\Касатка\*.*", "D:\PVSW\"

If Err.Number = 0 Then
	WScript.Echo "Перемещение закончено"
Else
	WScript.Echo "Переместить файл не удалось"
End If

Вообще-то задача некорректно поставлена.