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

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

null@example.com (smaharbA) — Thu, 02 Dec 2010 13:35:46 +0000

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

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

null@example.com (scripsils) — Thu, 02 Dec 2010 12:53:13 +0000

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

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

null@example.com (Anmat) — Thu, 02 Dec 2010 12:36:15 +0000

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

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

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

ok.close

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

null@example.com (scripsils) — Thu, 02 Dec 2010 10:12:35 +0000

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

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

null@example.com (smaharbA) — Thu, 02 Dec 2010 09:53:50 +0000

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

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

null@example.com (scripsils) — Thu, 02 Dec 2010 09:21:22 +0000

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

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

null@example.com (smaharbA) — Thu, 02 Dec 2010 09:01:50 +0000

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

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

null@example.com (scripsils) — Thu, 02 Dec 2010 08:22:05 +0000

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

Спасибо.