Программно скопировать файлы из одной папки в другую 1С 8.2/8.3 - Автоматизация бизнеса. Программист 1С Минск

Главное меню:

Программно скопировать файлы из одной папки в другую 1С 8.2/8.3

Иногда при разработке конфигурации возникают не стандартные ситуации. Например: реализация автоматического перемещения файлов/папок или перемещение файлов по локальной сети. Возникает вопрос - как перенести с помощью программного кода 1С 8 все файлы из одной папки в другую?

На самом деле задача очень простая и реализуется одной процедурой в модуле объекта метаданных (Например - обработки). Ниже представлен полноценный рабочий код:

Процедура КопироватьВсефайлыИзОдногоКаталогаВДругой(ОткудаКопируем, КудаКопируем)

КаталогКудаКопируем = Новый Файл(КудаКопируем);

Если КаталогКудаКопируем.Существует() Тогда

Если КаталогКудаКопируем.ЭтоФайл() Тогда

УдалитьФайлы(КаталогКудаКопируем.ПолноеИмя);

СоздатьКаталог(КудаКопируем);

КонецЕсли;

Иначе

СоздатьКаталог(КудаКопируем);

КонецЕсли;

Файлы = НайтиФайлы(ОткудаКопируем, "*.*");

Для Каждого Файл Из Файлы Цикл

Если Файл.ЭтоКаталог() Тогда

КопироватьСодержимоеКаталога(Файл.ПолноеИмя, КудаКопируем+"\"+Файл.Имя);

Иначе

КопироватьФайл(Файл.ПолноеИмя, КудаКопируем+"\"+Файл.Имя);

КонецЕсли;

КонецЦикла;

КонецПроцедуры

Если Вы хотите заказать абонентское обслуживание или прочие услуги Вашей 1С. Пожалуйста, ознакомьтесь с прайс-листом и оформите заявку через контактную форму.

Оценка: 5.0/5

_______________________________________________________________

Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник