// Работа 1C с FTP (8.0,8.1,8.2)

// Загрузка файлов на FTP сервер
Процедура ЗагрузитьОтмеченные(Кнопка)
Сервер = Новый FTPСоединение(FTPServer);
Для Каждого Файл Из ПолеСписка Цикл
Если Файл.Пометка Тогда
Сервер.Получить(Файл.Значение.ПолноеИмя, "с:\temp" + Файл.Значение.ПолноеИмя);
Файл.Пометка = Ложь;
КонецЕсли;
КонецЦикла;
КонецПроцедуры


// Просмотр файлов на FTP сервере
Процедура Просмотреть(Кнопка)
Сервер = Новый FTPСоединение(FTPServer);
МассивФайлов = Сервер.НайтиФайлы("/","*.*");
Для Каждого Файл Из МассивФайлов Цикл
Если Файл.ЭтоФайл() Тогда
ПолеСписка.Добавить(Файл, Файл.Имя)
КонецЕсли;
КонецЦикла;
КонецПроцедуры


ПапкаКонтрагена = "Kontr";
Попытка
ИмяFTPСервера               = "*******";
ПортFTPСоединения           = "21";
ПользовательFTPСоединения   = "****" ;
ПарольFTPСоединения         = "*****" ;
ПассивноеFTPСоединение Ложь;
Соединение = Новый FTPСоединение(ИмяFTPСервера, ПортFTPСоединения,ПользовательFTPСоединения,ПарольFTPСоединения, ,ПассивноеFTPСоединение);
Массив = Соединение.НайтиФайлы("/"+ПапкаКонтрагена+"/", "");
Если Массив.Количество() = 0 Тогда
Соединение.СоздатьКаталог(ПапкаКонтрагена);
КонецЕсли;
Соединение.УстановитьТекущийКаталог(ПапкаКонтрагена);
Соединение.Записать(ИмяФайлаЗаписи, "file.txt");
Исключение
Сообщить("Ошибка записи файла на FTP!!!");
Возврат "";
КонецПопытки;


//загрузить файлы с сервера
ВременноеИмя = Константы.ЛокальныйКаталогФайловDBF.Получить() + "\~.dbf";
Адрес = "/38018/43001001";
СерверFTP = "postrm.ru";
Пользователь = "*******";
Пароль = "*******";
Прокси = Новый ИнтернетПрокси();
Прокси.Пользователь = "***";
Прокси.Пароль = "****";
Сервер = Новый FTPСоединение(СерверFTP,,Пользователь,Пароль,Прокси);
НайденныеФайлы = Сервер.НайтиФайлы(Сервер.ТекущийКаталог() + Адрес, "i*.dbf");
Для каждого ТекФайл Из НайденныеФайлы Цикл
КопироватьФайл(ТекФайл.ПолноеИмя, ВременноеИмя);
//"Обработка файла"
...
КонецЦикла;