[решено] VBS-перемещение файлов. - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] VBS-перемещение файлов. (http://forum.oszone.net/showthread.php?t=252273)

VBS-перемещение файлов.

Добрый вечер.
Есть файлы разного расширения расположенные в C:\Касатка, мне требуется переместить Все файлы в папку D:\PVSW.
При удачном перемещение на экран выводилось сообщение "Перемещение закончено", при ошибки "Переместить файл не удалось".
Подскажите профану как это реализовать на VBS.

Код:

On Error Resume Next

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



If Err.Number = 0 Then

        WScript.Echo "Перемещение закончено"

Else

        WScript.Echo "Переместить файл не удалось"

End If

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

Спасибо большое