3
PRO100 NigGaZ
23.11.13
✎
14:39
|
а программно
Попытка
Соединение = Новый FTPСоединение(FTPСервер,FTPПорт,FTPПользователь,FTPПароль, ,Ложь);
Массив = Соединение.НайтиФайлы(FTPКаталогЗагрузки, "*.csv");
Если Не Массив.Количество() = 0 Тогда
Для Каждого Стр Из Массив Цикл
//Проверяем, есть ли файл в каталоге, если нет - то грузим
КаталогНаДиске = Новый Файл(КаталогЗагрузкиДанных+"\"+Стр.Имя);
Если НЕ КаталогНаДиске.Существует() Тогда
ИмяФайла = КаталогЗагрузкиДанных+"\"+Стр.Имя;
Соединение.Получить(Стр.ПолноеИмя, ИмяФайла);
КонецЕсли;
КонецЦикла;
Иначе
Сообщить("Нет файлов!");
КонецЕсли;
Исключение
Сообщить("Ошибка подключения FTP!!!");
КонецПопытки;
|
|