Мне друг 1Сник скинул пример: Выгрузка 1С на FTP
Попытка
Лог("Начата выгрузка на ftp");
ИмяFTPСервера = "имя сервера";
ПортFTPСоединения = "21";
ПользовательFTPСоединения = "логин для подключения к ftp";
ПарольFTPСоединения = "пароль для подключения к ftp";
ПассивноеFTPСоединение = Ложь;
Соединение = Новый FTPСоединение(ИмяFTPСервера, ПортFTPСоединения,ПользовательFTPСоединения,ПарольFTPСоединения, ,ПассивноеFTPСоединение);
НайденныеФайлы = НайтиФайлы("D:\1C\SITEOBMEN\1cbitrix\", "*.*", Истина); //папка с которой все будет копировать на ftp
Для Каждого Строка Из НайденныеФайлы
Цикл
Попытка
ФаилФТП = Стрзаменить(Строка.ПолноеИмя, "D:\1C\SITEOBMEN\1cbitrix", "");
ФаилФТП = Стрзаменить(ФаилФТП, "\", "/");
Если Строка.ИмяБезРасширения = Строка.Имя
Тогда
Соединение.СоздатьКаталог(ФаилФТП);
Иначе
Соединение.Записать(Строка.ПолноеИмя, ФаилФТП);
КонецЕсли;
Лог("Фаил записан на ftp: " + Строка.ПолноеИмя);
Исключение
Лог(ОписаниеОшибки());
КонецПопытки;
КонецЦикла;
Лог("Загрузка на ftp завершена");
Исключение
Лог(ОписаниеОшибки());
КонецПопытки;
Сообщение отредактировал CB9TOIIIA: 29 November 2016 - 14:23