 |
|
Проверка на наличие файлй
Добрый день. Помогите решить проблему.
Есть vbs скрипт который раскидывает файлы по папкам.
Код:
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set Shell = WScript.CreateObject("WScript.Shell")
If Not FSO.FolderExists("Дата") ' Если папки Дата не существует '
Then
FSO.CreateFolder("Дата") ' Создаем папку Дата '
FSO.CreateFolder("Дата\12") ' Создаем папку Дата\12 '
FSO.CreateFolder("Дата\13") ' Создаем папку Дата\13 '
End If
' Начинаем распределение '
Const OverwriteExisting = True
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "1.txt" , "Дата\" , OverwriteExisting
FSO.CopyFile "2.txt" , "Дата\" , OverwriteExisting
FSO.CopyFile "3.txt" , "Дата\12\" , OverwriteExisting
FSO.CopyFile "4.txt" , "Дата\12\" , OverwriteExisting
FSO.MoveFile "5.txt" , "Дата\13\"
Set Shell = Nothing
Set FSO = Nothing
WScript.Quit
Но если файл 3.txt не существует выдает ошибку и завершает работу.
Подскажите, как написать скрипт, чтоб при отсутствии файла он его пропускал и переходил к следующему. Если следующего нет, к следующему. И так до последнего. |
| Ivan Bardeen |
20-01-2011 15:41 1593142 |
Цитата:
Цитата peretc001
Подскажите, как написать скрипт, чтоб при отсутствии файла он его пропускал и переходил к следующему. Если следующего нет, к следующему. И так до последнего. »
|
Первой строкой добавьте
On Error Resume Next |
Спасибо, работает
А можно еще как-нибудь создать прогресс-бар, чтоб в процентах показывал насколько выполнены все команды. У меня там на час-два времени точно.
Или хотя бы во время копирования показывал типа
1.txt OK
2.txt OK
3.txt OK
и т.д.
|
Время: 15:20.
© OSzone.net 2001-