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

Re: AHK: Копирование разных субдиректорий в другую директорию

null@example.com (stealzy) — Tue, 31 Oct 2017 22:02:16 +0000

Копирование со слиянием папок и заменой файлов, аля explorer:

ComObjCreate("Shell.Application").NameSpace("D:\").CopyHere("C:\test", Yes2All:=0x10)

Re: AHK: Копирование разных субдиректорий в другую директорию

null@example.com (Mambr) — Tue, 31 Oct 2017 20:04:49 +0000

В общем, если кому надо ...

Этот код копирует содержимое всех субдиректорий (файлы и папки) из D:\Test\test-1, D:\Test\test-2, D:\Test\test-3 и т.д. (могут быть с любым именем)
в одну любую директорию, здесь F:\test


SourceDir := "D:\test"
DestDir := "F:\test"

Loop % SourceDir "\*", 2
Loop Parse, A_LoopFileFullPath, `n
	{
	;MsgBox % A_LoopField
	FileCopyDir % A_LoopField, % DestDir, 1
	}

AHK: Копирование разных субдиректорий в другую директорию

null@example.com (Mambr) — Tue, 31 Oct 2017 18:38:56 +0000

Добрый вечер всем!

Суть вопроса:
Есть директория D:\Test, а в ней субдиректории - test 1, test 2 и test 3

Задача:
Скопировать все субдиректории из директории D:\Test в диск F:\

Этот код работает:


TestDir := "D:\test"

Loop % TestDir "\*", 2
Listing := % Listing A_LoopFileName "`n"
Loop Parse, Listing, `n
	{
	;MsgBox % TestDir "\" A_LoopField
	FileCopyDir % TestDir "\" A_LoopField, F:\, 1
	}

А почему этот не работает:


TestDir := "D:\test"

Loop % TestDir "\*", 2
Listing := % Listing A_LoopFileLongPath "`n"
Loop Parse, Listing, `n
	{
	MsgBox % A_LoopField
	FileCopyDir % A_LoopField, F:\, 1
	}

Хотя MsgBox выдает нормальный path субдиректорий.

Что я делаю не так в последнем варианте???

Вариант FileCopyDir % TestDir "\", F:\, 1 не рассматривать.

Разобрался!

Надо вместо
A_LoopFileLongPath

использовать
A_LoopFileFullPath

Так все работает.