Функция ПодключитьсяКFTPСерверу() Экспорт
Попытка
Соединение = Новый FTPСоединение(
"ftp.domen.nichost.ru", // адрес ftp сервера
21, // порт сервера
"user", // имя пользователя
"parol", // пароль пользователя
Неопределено, // прокси не используется
Истина, // пассивный режим работы
0, // таймаут (0 - без ограничений)
Неопределено // незащищенное соединение
);
// Для случаев, когда у ftp сервера нет возможности
// обращаться к нам (мы находимся за межсетевым экраном)
// следует использовать пассивный режим работы.
Возврат Соединение;
исключение
Сообщить("Не удалось подключиться к серверу");
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецФункции
ТД1 = Новый ТекстовыйДокумент();
ТД1.УстановитьТекст(Рез);
ТД1.ИспользуемоеИмяФайла = КаталогВременныхФайлов() + "file.json";
ТД1.Записать(ТД1.ИспользуемоеИмяФайла, КодировкаТекста.UTF8);
Соединение = ПодключитьсяКFTPСерверу();
попытка
// Установим текущий каталог.
Соединение.УстановитьТекущийКаталог("domen.ru/docs/path");
Папка =КаталогВременныхФайлов();
// Запишем этот файл на сервер по ftp в папку path
Соединение.Записать(
Папка + "/file.json", // что записываем
"file.json" // куда записываем
);
Сообщить("Передали файл по FTP.");
исключение
Сообщить("Не удалось скопировать файлы на FTP");
Сообщить(ОписаниеОшибки());
КонецПопытки;