Серый форум — AHK: Копирование последней созданной директории

Re: AHK: Копирование последней созданной директории

null@example.com (Malcev) — Wed, 30 Nov 2011 15:27:04 +0000

А всё понял.
Это всё из-за неправильного понимания мною функции FileCopyDir
Теперь понял.

FileCopyDir, C:\ZooSala\%File%, E:\Archive

Мы дублируем и меняем это C:\ZooSala\%File% на это E:\Archive.
А я ошибочно думал, что мы копируем это C:\ZooSala\%File% вот в это E:\Archive
Всё очень тут запутанно.

Re: AHK: Копирование последней созданной директории

null@example.com (ypppu) — Wed, 30 Nov 2011 15:07:18 +0000

Наверно потому что папка Archive уже существует. Опять же читайте документацию полностью и внимательно.

Re: AHK: Копирование последней созданной директории

null@example.com (Malcev) — Wed, 30 Nov 2011 14:42:03 +0000

Действительно, работает.
А меня переглючило, что копируется, но без вложенных папок.
Объясните, пожалуйста, почему не работало так?

FileCopyDir, C:\ZooSala\%File%, E:\Archive

Re: AHK: Копирование последней созданной директории

null@example.com (ypppu) — Wed, 30 Nov 2011 13:23:21 +0000

В сообщении #7 я привёл рабочий пример, где последняя (по времени) папка копируется вместе со всеми вложенными файлами и папками. Вы ответили, что работает. Зачем разрабатывать ещё один алгоритм? Если просто хочется понять пример из справки, то нужно с ней и разбираться.

Re: AHK: Копирование последней созданной директории

null@example.com (Malcev) — Wed, 30 Nov 2011 12:06:28 +0000

Да, изначально я считал, что это само собой подразумевается.
Проще говоря, мне требуется скопировать все файлы, подпапки и все файлы в подпапках в последней созданной директории.
Но в принципе, если алгоритм тот же - почему же не копируется?

Re: AHK: Копирование последней созданной директории

null@example.com (ypppu) — Wed, 30 Nov 2011 12:04:26 +0000

Вам требуется копировать все файлы, потом все папки? Это не соответствует названию темы и первому сообщению.

Re: AHK: Копирование последней созданной директории

null@example.com (Malcev) — Wed, 30 Nov 2011 09:32:32 +0000

Ну да, вначале копируются все файлы, потом все папки.
Этот скрипт - пример с помощи.
Я его криво опубликовал, поэтому изменил там всё, после вашего ответа

Re: AHK: Копирование последней созданной директории

null@example.com (ypppu) — Wed, 30 Nov 2011 09:28:59 +0000

А Вы знаете, зачем он нужен и как работает?

Re: AHK: Копирование последней созданной директории

null@example.com (Malcev) — Wed, 30 Nov 2011 09:27:05 +0000

Да, так работает.
Спасибо.
Но мне необходимо копировать все файлы и подпапки.
Поэтому я стал использовать другой код, а в нём опять не работает

Folder1 = C:\ZooSala
Folder2 = С:\Archive
Time_Orig = 0
F10::
Loop, %Folder1%\* ,2
{
FileGetTime, Time, %A_LoopFileFullPath%, C
If (Time > Time_Orig)
    {
    Time_Orig := Time
    File := A_LoopFileName
    }
}
; The following example copies all files and folders inside a folder to a different folder:
ErrorCount := CopyFilesAndFolders("%Folder1%\%File%\*.*", "%Folder2%\%File%\")
if ErrorCount <> 0
    MsgBox %ErrorCount% files/folders could not be copied.

CopyFilesAndFolders(SourcePattern, DestinationFolder, DoOverwrite = false)
; Copies all files and folders matching SourcePattern into the folder named DestinationFolder and
; returns the number of files/folders that could not be copied.
{
    ; First copy all the files (but not the folders):
    FileCopy, %SourcePattern%, %DestinationFolder%, %DoOverwrite%
    ErrorCount := ErrorLevel
    ; Now copy all the folders:
    Loop, %SourcePattern%, 2  ; 2 means "retrieve folders only".
    {
        FileCopyDir, %A_LoopFileFullPath%, %DestinationFolder%\%A_LoopFileName%, %DoOverwrite%
        ErrorCount += ErrorLevel
        if ErrorLevel  ; Report each problem folder by name.
            MsgBox Could not copy %A_LoopFileFullPath% into %DestinationFolder%.
    }
    return ErrorCount
}

Re: AHK: Копирование последней созданной директории

null@example.com (ypppu) — Wed, 30 Nov 2011 09:06:14 +0000

У меня вот так работает.
Хотя без третьей строчки тоже работает, но для порядка лучше оставить.

Folder1 = C:\ZooSala
Folder2 = C:\Archive
Time_Orig = 0
F10::
Loop, %Folder1%\* ,2
{
FileGetTime, Time, %A_LoopFileFullPath%, C
If (Time > Time_Orig)
	{
	Time_Orig := Time
	File := A_LoopFileName
	}
}
FileCopyDir, %Folder1%\%File%, %Folder2%\%File%

Re: AHK: Копирование последней созданной директории

null@example.com (Malcev) — Wed, 30 Nov 2011 08:27:38 +0000

Можно прописать так
Time_Orig = 0
Но как я понимаю, это не обязательно, так как и без этой строчки в сообщении он показывает название последней созданной директории, но почему-то, змей, не копирует её

F10::
Folder = C:\ZooSala
Time_Orig = 0
Loop, %Folder%\* ,2
{
     FileGetTime, Time, %A_LoopFileFullPath%, C
     If (Time > Time_Orig)
     {
          Time_Orig := Time
          File := A_LoopFileName
     }
}
MsgBox, %File%


; The following example copies all files and folders inside a folder to a different folder:
ErrorCount := CopyFilesAndFolders("C:\Zoosala\%File%\*.*", "E:\archive")
if ErrorCount <> 0
    MsgBox %ErrorCount% files/folders could not be copied.

CopyFilesAndFolders(SourcePattern, DestinationFolder, DoOverwrite = false)
; Copies all files and folders matching SourcePattern into the folder named DestinationFolder and
; returns the number of files/folders that could not be copied.
{
    ; First copy all the files (but not the folders):
    FileCopy, %SourcePattern%, %DestinationFolder%, %DoOverwrite%
    ErrorCount := ErrorLevel
    ; Now copy all the folders:
    Loop, %SourcePattern%, 2  ; 2 means "retrieve folders only".
    {
        FileCopyDir, %A_LoopFileFullPath%, %DestinationFolder%\%A_LoopFileName%, %DoOverwrite%
        ErrorCount += ErrorLevel
        if ErrorLevel  ; Report each problem folder by name.
            MsgBox Could not copy %A_LoopFileFullPath% into %DestinationFolder%.
    }
    return ErrorCount
}

Re: AHK: Копирование последней созданной директории

null@example.com (ypppu) — Wed, 30 Nov 2011 08:11:49 +0000

If (Time > Time_Orig)

Как проверить это условие? Откуда берётся содержимое переменной Time_Orig?

Re: AHK: Копирование последней созданной директории

null@example.com (Malcev) — Wed, 30 Nov 2011 08:04:25 +0000

Переделал скрипт вот в такой.
И всё-равно ничего не копируется.
В чём ошибка?

F10::
Folder = C:\ZooSala

Loop, %Folder%\* ,2
{
     FileGetTime, Time, %A_LoopFileFullPath%, C
     If (Time > Time_Orig)
     {
          Time_Orig := Time
          File := A_LoopFileName
     }
}
MsgBox, %File%


; The following example copies all files and folders inside a folder to a different folder:
ErrorCount := CopyFilesAndFolders("C:\Zoosala\%File%\*.*", "E:\archive")
if ErrorCount <> 0
    MsgBox %ErrorCount% files/folders could not be copied.

CopyFilesAndFolders(SourcePattern, DestinationFolder, DoOverwrite = false)
; Copies all files and folders matching SourcePattern into the folder named DestinationFolder and
; returns the number of files/folders that could not be copied.
{
    ; First copy all the files (but not the folders):
    FileCopy, %SourcePattern%, %DestinationFolder%, %DoOverwrite%
    ErrorCount := ErrorLevel
    ; Now copy all the folders:
    Loop, %SourcePattern%, 2  ; 2 means "retrieve folders only".
    {
        FileCopyDir, %A_LoopFileFullPath%, %DestinationFolder%\%A_LoopFileName%, %DoOverwrite%
        ErrorCount += ErrorLevel
        if ErrorLevel  ; Report each problem folder by name.
            MsgBox Could not copy %A_LoopFileFullPath% into %DestinationFolder%.
    }
    return ErrorCount
}

Re: AHK: Копирование последней созданной директории

null@example.com (Malcev) — Tue, 29 Nov 2011 13:31:32 +0000

Точно, нужно было двоечку поставить

F10::
Folder = C:\ZooSala

Loop, %Folder%\* ,2
{
     FileGetTime, Time, %A_LoopFileFullPath%, C
     If (Time > Time_Orig)
     {
          Time_Orig := Time
          File := A_LoopFileName
     }
}
MsgBox, %File%
FileCopyDir, C:\ZooSala\%File%, E:\Archive

Но почему-то в папку Archive не копирует.

Re: AHK: Копирование последней созданной директории

null@example.com (ypppu) — Tue, 29 Nov 2011 12:59:56 +0000

Проверьте это:

Loop (файлы и папки)
Возвращает указанные файлы или папки по одному/одной.
Loop, FilePattern [, IncludeFolders?, Recurse?]