8.х Как скопировать папку (директорию) ?

Помогите разобраться, плиз...

Есть, например, папка "D:\Хлам\Книги". В ней хранятся как файлы, так и еще всякие папки.
Как программно скопировать ее в другое место ?

А ниже приведенный код не работает: пишет, "Ошибка доступа к файлу"

Код:

КопироватьФайл("D:\Хлам\Книги","F:\Книги");

А если просто
КомандаСистемы("copy D:\1 c:\2");
т.е. вызвать командную строку

Неа, никак не получается...

Тока файлы, а папки не хотят копироваться... :unsure:

Может еще кто подскажет ???

так может и действительно не хватает прав на файлах в каталоге?

Вообщем так:

В папке "c:\1\" лежат папка "Новая" и файлик "335.txt"

Запускаю команду:

Код:

КомандаСистемы("copy c:\1\*.* d:\*.*")

Результат:

На диске D тока текстовый файлик

copy только файлы и копирует, используйте xcopy. А вообще, на 1с написать функцию копирующую каталог со всем содержимым дело пяти минут.

И то верно, написал функцию.. Причем, оказалось проще, т.к. была известна структура каталогов

:unsure:

Структура тут значения не имеет, а если она достаточно большая, то только увеличит код. Если не заморачиваться на различных проверках (типа проверки возможности построения пути назначения), то рабочая процедура, примерно, такая будет:

Код:

Процедура КопироватьСодержимоеКаталога(Откуда, Куда)
КаталогНазначения = Новый Файл(Куда);
Если КаталогНазначения.Существует() Тогда
Если КаталогНазначения.ЭтоФайл() Тогда
УдалитьФайлы(КаталогНазначения.ПолноеИмя);
СоздатьКаталог(Куда);
КонецЕсли;
Иначе
СоздатьКаталог(Куда);
КонецЕсли;
Файлы = НайтиФайлы(Откуда, "*.*");
Для Каждого Файл Из Файлы Цикл
Если Файл.ЭтоКаталог() Тогда
КопироватьСодержимоеКаталога(Файл.ПолноеИмя, Куда+"\"+Файл.Имя);
Иначе
КопироватьФайл(Файл.ПолноеИмя, Куда+"\"+Файл.Имя);
КонецЕсли;
КонецЦикла;
КонецПроцедуры