[Ka3hak]

Нууу... Если я правильно тебя понял (хотя почему-то сам в этом сомневаюсь), это будет выглядеть так:

Код:

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)

Вот оно: Корневая папка

---

Кажись понял... Сохранив структуру папок, чтобы База.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