"длинные имена не поддерживает.<br>лучше так<br>создать в 1с внешний отчет<br>добавить текстовое поле в форму идентификатор-выбпуть, тип строка, длина 60<br>добавить кнопку в форму заголовок-О, формула-ВыборКаталога()<br><br>В модуле формы<br><br><br><br>//*******************************************<br>Процедура Сформировать()<br>Если МонопольныйРежим()=1 Тогда <br>Предупреждение("В монопольном режиме копирование файлов невозможно!"); <br>Иначе; <br>ФС.УстТекКаталог(каталогИБ()); <br><br>Попытка<br>ИБ=СокрЛП(строка(константа.ПрефиксИБ));<br>Исключение <br>ИБ="""";<br>КонецПопытки;<br>КК = СокрЛП(Строка(ВыбПуть))+Строка("\")+ИБ+СокрЛП(строка(ТекущаяДата())); <br>Если ФС.СуществуетФайл(КК) = 0 Тогда <br>ФС.СоздатьКаталог(КК); <br>КонецЕсли;<br>ЗапуститьПриложение("xcopy *.dbf "+КК+" /y"); <br>ЗапуститьПриложение("xcopy 1cv7.md "+КК+" /y"); <br>ЗапуститьПриложение("xcopy cv7.dd "+КК+" /y"); <br>ЗапуститьПриложение("xcopy users.usr "+КК+" /y"); <br>ЗапуститьПриложение("xcopy *.DLL "+КК+" /y"); <br>КонецЕсли; <br>//ЗавершитьРаботуСистемы(); <br><br>КонецПроцедуры <br><br><br>Процедура ВыборКаталога()<br>Если ФС.ВыбратьКаталог(ВыбПуть,"Выбор Каталога",60)=1 Тогда<br>КонецЕсли;<br>КонецПроцедуры <br><br>Выбпуть="G:\1C";<br><br>///////////////////////////////////<br><br><br>"