Войти

Показать полную графическую версию : Скрипт поиска и копирования файлов в папку. Как реализовать?


Pozia
08-03-2012, 21:38
Есть корневая папка с файлом База.xls и несколькими подпапками. В каждой подпапке куча других папок в которых в каждой есть, по мимо всего прочего, папка определенного имени - "Задание". В папке "Задание" набор определенных файлов. Нужно чтобы скрипт, запущенный в корневой папке, создал возле себя папку по имени "База" и скопировал туда файл База.xls и все папки "Задание" (с файлами внутри нее) сохранив при этом все пути расположения этой папки относительно корневой папки.
Можно ли такое реализовать? Спасибо заранее.

Ka3hak
28-03-2012, 00:44
Нууу... Если я правильно тебя понял (хотя почему-то сам в этом сомневаюсь), это будет выглядеть так:
DirCreate("База")
FileCopy(@ScriptDir & "\База.xls", @ScriptDir & "\База", 9)
DirCopy(@ScriptDir & "\Подпапка 1\", @ScriptDir & "\База", 9)
DirCopy(@ScriptDir & "\Подпапка 2\", @ScriptDir & "\База", 9)
DirCopy(@ScriptDir & "\Подпапка 3\", @ScriptDir & "\База", 9)
DirCopy(@ScriptDir & "\Подпапка 4\", @ScriptDir & "\База", 9)
Вот оно: Корневая папка (http://rghost.ru/37264557)
[hr]
Кажись понял... Сохранив структуру папок, чтобы База.xls продолжала ссылаться на папки "Задание" в каждой из подпапок в корневой?
Тогда так:
DirCreate("База")
FileCopy(@ScriptDir & "\База.xls", @ScriptDir & "\База", 9)
DirCopy(@ScriptDir & "\Подпапка 1\Задание", @ScriptDir & "\База\Подпапка 1\Задание", 9)
DirCopy(@ScriptDir & "\Подпапка 2\Задание", @ScriptDir & "\База\Подпапка 2\Задание", 9)
DirCopy(@ScriptDir & "\Подпапка 3\Задание", @ScriptDir & "\База\Подпапка 3\Задание", 9)
DirCopy(@ScriptDir & "\Подпапка 4\Задание", @ScriptDir & "\База\Подпапка 4\Задание", 9)
Держи: Корневая папка 2 (http://rghost.ru/37264582)

Pozia
28-03-2012, 21:12
Кажись понял... »
не совсем. У вас в скрипте новые папки придется руками все время дописывать. А у меня их количество постоянно растет. Нужно чтобы скрипт сканировал каталог и делал все что требуется.

Ka3hak
28-03-2012, 22:36
Нужно чтобы скрипт сканировал каталог и делал все что требуется. »
Мммда... Жирновастенько! Так надо было сразу уточнять...
Здесь всё, я ещё пока что не такого уровня... :)

AZJIO
30-03-2012, 06:33
Pozia, готовый скрипт не дам, а намётки можно: FileOperations (http://u.to/Wf6NAQ) - UDF для поиска файлов и/или папок включая во вложенных.
Установить при поиске папок маску "Задание" и результат массив с относительными путями. Потом командой DirCopy скопировать.

Pozia
31-03-2012, 18:47
AZJIO, спасибо, жаль только что я в этом не бум бум




© OSzone.net 2001-2012