Тема: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке
Уважаемые коллеги. Подскажите в чем причина ошибки при работе скрипта.
Задача: скопировать из одного места в другое все папки с файлами не старше чем i дней относительно текущей даты.
Был написан скрипт, который хорошо коприует 1 и 2 папки. На третьей папке возникает ошибка 70.
Вот код скрипта:
On Error Resume Next
dim src, dst, fs, fol, subfol, f1, cur_date, pre_date, fol_name, f, copy, ok, i
'katalog s dannymi
src = "D:\Папка\"
dst = "D:\"
set fs = CreateObject("Scripting.FileSystemObject")
set fol = fs.GetFolder(src)
set subfol = fol.SubFolders
i=20
For Each f1 In subfol
cur_date = f1.DateCreated
pre_date = date()-i
if cur_date > pre_date Then
fol_name = f1.name
fs.CopyFolder src & fol_name, dst
WScript.Echo err.number 'Здесь выскакивает ошибка на третьей папке
if (err.number <> 0) Then
ErrorCopy
WScript.Quit
End If
set ok = fs.CreatetextFile(dst & "ok", True)
End If
Next
Sub ErrorCopy
set ok = fs.CreatetextFile("error_copy", True)
End SubСпасибо.
