Серый форум — VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

2010-12-02T13:35:46Z

каюсь проглядел

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

2010-12-02T12:53:13Z

Спасибо. Помогло.

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

2010-12-02T12:36:15Z

Вообще-то, ошибка возникает не на копировании папки, а на записи файла:

set ok = fs.CreatetextFile(dst & "ok", True)

Файл-то закрывать надо.

ok.close

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

2010-12-02T10:12:35Z

имена папок по-русски, без пробелов или цифрами разницы нет. В некоторых папках файлов нет.
Тестировалось на нескольких компах. Везде при копировании третьей папки ошибка 70

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

2010-12-02T09:53:50Z

70 это отклонение разрешения
+ и заключите в кавычки если спецсимволы в именах папок
и могут быть файлы с "плохими" именами

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

2010-12-02T09:21:22Z

CopyFolder - по умолчанию используется overwrite=true.
"приемные файлы" - это какие? Атрибуты проверил. Везде не архивный, не системный, не только чтение. Ошибка вознкает опять.
Ошибка возникает и при копировании в пустую папку.

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

2010-12-02T09:01:50Z

атрибуты поменяйте у приемных файлов, снимите только чтение и системный
+
fs.CopyFolder src & fol_name, dst, true

VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

2010-12-02T08:22:05Z

Уважаемые коллеги. Подскажите в чем причина ошибки при работе скрипта.
Задача: скопировать из одного места в другое все папки с файлами не старше чем 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

Спасибо.