VBA. Копирование со структурой папок

Игорь Акопян · 27 ноя 2007, 17:42

добавлю что ключ /I создаст папку Path_01 если её не существует.

ещё команда FOR была довольно занятна... а вообще наверное батник придётся стартовать

Aent · 28 ноя 2007, 01:11

https://www.microsoft.com/resources/doc ... x?mfr=true

Игорь Акопян · 28 ноя 2007, 14:45

Aent, xcopy хорош, но он сделает каталоги вложенные в заданный первым параметром.
/S для рекурсии забыли

Aent · 29 ноя 2007, 00:03

&quot писал(а):он сделает каталоги вложенные в заданный первым параметром.
/S для рекурсии забыли

??? Поясните, что Вы имеете в виду ?
/T /E - копируется всё дерево подпапок. Отнюдь не только первый уровень.

Игорь Акопян · 03 дек 2007, 12:21

упс... про /S погорячился... это я перепробывался ключей

основной тон сообщения заключался в неприменимости xcopy для задачи топикстартера.

Aent · 03 дек 2007, 19:41

&quot писал(а):основной тон сообщения заключался в неприменимости xcopy для задачи топикстартера.

Непонятно почему. Вложенные каталоги переносятся с любым разумным уровнем вложенности.
Или Avsha, я всё таки неправильно понял Вашу постановку задачи ?

Avsha · 03 дек 2007, 21:42

to Aent,
xcopy копирует весь пучек вложенных папок
C:\Program\Path_01
C:\Program\Path_02
C:\Program\Path_03 и т.д.

А мне требуется скопировать только одну ветку с сохранением пути до корня, например
C:\Program\Path_02 на
K:\Program\Path_02

А этого xcopy сделать не сможет, она построит весь пучек \Path_01, \Path_02, \Path_03

Ну да ладно, считаю вопрос закрытым
ручная команда
md K:\Program\Path_02
- мне уже достаточно помогла

Aent · 04 дек 2007, 00:07

Avsha, ну так ровно это я и предлагал

Код: Выделить всё

Sub CopyPath(sSourcePath as string)
    Dim rc As Long
    Dim sTargetPath as string
    sTargetPath = "k:\" & Mid$(sSourcePath,4)
    MkDir sTargetPath
    rc = Shell("c:\Windows\System32\xcopy.exe """ &  sSourcePath & """ """ &  sTargetPath & """ /T /E", 0)
End Sub

Впрочем, я всё время предполагаю, что исходные папки Path_xx cодержат подпапки...
Если это не так то конечно достаточно VBA команды MkDir. Вызов CMD (md) в этом
случае не нужен.
Впрочем, закроем тему

Avsha · 04 дек 2007, 13:57

Вот, вот, вот -
xcopy не хочет свою работу выполнять, а MkDir за нее отдувается