Обмен файлами с FTP сервером средствами Windows

  // Передать файл по FTP
Процедура ПередатьПоFTP(ИмяФайла,ПутьФТП=Неопределено) Экспорт
    Если ПутьФТП = Неопределено Тогда
        ТекПутьФТП = ПараметрыСеанса.FTPПуть;
    Иначе
        ТекПутьФТП = ПутьФТП;
    КонецЕсли;    
    
    //создаем скрипт для соединения и отправки
    Скрипт=Новый ТекстовыйДокумент;
    Скрипт.ДобавитьСтроку("open "+ПараметрыСеанса.FTP);
    Скрипт.ДобавитьСтроку("user");
    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPЛогин);
    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPПароль);
    Скрипт.ДобавитьСтроку("binary");
    
   //при необходимости входим в каталог, возможно, таких команд будет несколько
    Скрипт.ДобавитьСтроку("cd "+ТекПутьФТП);
    Скрипт.ДобавитьСтроку("put "+ПараметрыСеанса.ПутьКФайлуОбраза+"\"+ИмяФайла);
    Скрипт.ДобавитьСтроку("bye");
    
    //записываем скрипт на диск
    Файл = Новый Файл(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt");
    Скрипт.Записать(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt", "windows-1251");

    //а теперь запускаем его выполнение
    КомандаСистемы("ftp -n -s:"+ПараметрыСеанса.ПутьКФайлуОбраза+"\ftp.txt");
КонецПроцедуры

// Получить файл по FTP
Процедура ПолучитьПоFTP(ИмяФайла,ПутьФТП=Неопределено) Экспорт
    Если ПутьФТП = Неопределено Тогда
        ТекПутьФТП = ПараметрыСеанса.FTPПуть;
    Иначе
        ТекПутьФТП = ПутьФТП;
    КонецЕсли;    
    
    //создаем скрипт для соединения и отправки
    Скрипт=Новый ТекстовыйДокумент;
    Скрипт.ДобавитьСтроку("open "+ПараметрыСеанса.FTP);
    Скрипт.ДобавитьСтроку("user");
    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPЛогин);
    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPПароль);
    Скрипт.ДобавитьСтроку("binary");

    //при необходимости входим в каталог, возможно, таких команд будет несколько
    Скрипт.ДобавитьСтроку("cd "+ТекПутьФТП);
    Скрипт.ДобавитьСтроку("get");
    Скрипт.ДобавитьСтроку(ИмяФайла);
    Скрипт.ДобавитьСтроку(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+ИмяФайла);
    Скрипт.ДобавитьСтроку("bye");
 
   //записываем скрипт на диск
    Файл = Новый Файл(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt");
    Скрипт.Записать(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt", "windows-1251");

    //а теперь запускаем его выполнение
    КомандаСистемы("ftp -n -s:"+ПараметрыСеанса.ПутьКФайлуОбраза+"\ftp.txt");
КонецПроцедуры   

 // Пример от 0xFFFFFF
// Может быть проблема в том, что 1С естественно не дожидается окончания перемещения файлов (movehere) 
// и пока копируются файлы, код продолжает выполняться далее.

Функция ОтправитьФайлыЧерезFTP()          
    //подключаемся, отправляем
    Попытка
        Шел=СоздатьОбъект("shell.application");
        ПапкаФТП=Шел.namespace("ftp://" +СокрЛП(ФТП_Пользователь)+ ":" +СокрЛП(ФТП_Пароль)+ "@" + СокрЛП(ФТП_УРЛ) + "/" +СокрЛП(ФТП_ПутьИсходящих));
         ПапкаИсточник=Шел.namespace(КаталогИсходящих);
        ПапкаЗагруженных = Шел.namespace(КаталогЗагруженных);
        Предупреждение("Подключение к FTP серверу...",1);    
        Темы=ПапкаИсточник.items();
        ПапкаЗагруженных.copyhere(Темы);
        //Темы.filter(64,"*.txt"); 
         ПапкаФТП.movehere(Темы);
    Исключение                  
        Предупреждение("Внимание! Не удалось передать файлы адресату через FTP! Возможно, параметры FTP заданы неверно, либо отсутствует связь.");
        Возврат 0;
    КонецПопытки;  
    
    //проверяем
     ФС.УстТекКаталог(КаталогИсходящих);
    ПопытокПроверки = 3;
    Для Сч = 1 По ПопытокПроверки Цикл
        Если НЕ ((СокрЛП(ФС.НайтиПервыйФайл("*.*"))="") или (СокрЛП(ФС.НайтиПервыйФайл("*.*"))=".")) Тогда
            Если Сч = ПопытокПроверки Тогда
                Предупреждение("Внимание! Не удалось передать файлы адресату через FTP! Попробуйте совершить обмен позже.");
                Возврат 0;
            КонецЕсли;
            Предупреждение("Передача файлов....", 3);
        КонецЕсли;
    КонецЦикла;
    
    Возврат 1;
КонецФункции

Функция ПолучитьФайлыЧерезFTP()          
    //подключаемся
     Попытка
        Шел=СоздатьОбъект("shell.application");
        ПапкаФТП=Шел.namespace("ftp://" +СокрЛП(ФТП_Пользователь)+ ":" +СокрЛП(ФТП_Пароль)+ "@" + СокрЛП(ФТП_УРЛ) + "/" +СокрЛП(ФТП_ПутьВходящих));
 
        ПапкаПриемник=Шел.namespace(КаталогВходящих);   
        ПапкаЗагруженных = Шел.namespace(КаталогЗагруженных);
        Предупреждение("Подключение к FTP серверу...",1);
        Темы=ПапкаФТП.items();
        ПапкаЗагруженных.copyhere(Темы);
        //Темы.filter(64,"*.txt");                             
         ПапкаПриемник.movehere(Темы);
    Исключение                  
        Предупреждение("Внимание! Не удалось получить файлы через FTP! Возможно, параметры FTP заданы неверно, либо отсутствует связь.");
        Возврат 0;
    КонецПопытки;  
    
    //проверяем
    ПопытокПроверки = 3;
    Для Сч = 1 По ПопытокПроверки Цикл
        Если ПапкаФТП.items().count>0 Тогда
            Если Сч = ПопытокПроверки Тогда
                Предупреждение("Внимание! Не удалось получить файлы через FTP! Попробуйте совершить обмен позже.");
                Возврат 0;
            КонецЕсли;
            Предупреждение("Получение файлов....", 3);
        КонецЕсли;
    КонецЦикла;
    
    Возврат 1;             
КонецФункции

  //БЛОК ВЫГРУЗКИ НА ФТП 
    ТекстВыгрузки.Записать(КаталогПользователя()+(ИмяПрайса+".csv"));
    ТекстВыгрузки = "";
    ТекстВыгрузки = СоздатьОбъект("Текст");
    ТекстВыгрузки.ДобавитьСтроку("open " + "192.168.0.1"); //адрес
    ТекстВыгрузки.ДобавитьСтроку("****"); //логин
    ТекстВыгрузки.ДобавитьСтроку("*****"); //пароль
    ТекстВыгрузки.ДобавитьСтроку("put " + КаталогПользователя() + (ИмяПрайса+".csv"));
    ТекстВыгрузки.ДобавитьСтроку("bye");
    ТекстВыгрузки.Записать(КаталогПользователя() + "ftp.txt");
    ТекстВыгрузки = "";
    
    КомандаСистемы("ftp -s:" + КаталогПользователя() + "Ftp.txt>> " + (КаталогПользователя() + "report.txt"));
    ФС.УдалитьФайл(КаталогПользователя() + "ftp.txt");
    
    ТекстВыгрузки = СоздатьОбъект("Текст");
    ТекстВыгрузки.Открыть(КаталогПользователя() + "report.txt");
    КС = ТекстВыгрузки.КоличествоСтрок()-4; //если все нормально - то в этой строке файла должно быть соотв.сообщение
 
   //проверим его 
    Попытка 
        строкаКомплете = ТекстВыгрузки.ПолучитьСтроку(КС);
        Если  Найти(Нрег(строкаКомплете),"226 transfer complete") = 0
        Тогда а=1; а=а/0;
        КонецЕсли;
        тПротокол = ТекущееВремя()+" файл данных успешно отправлен на сервер интернет-магазина"+РазделительСтрок+тПротокол;
        Форма.Обновить();
        ТекстВыгрузки = "";
        ФС.УдалитьФайл(КаталогПользователя() + (ИмяПрайса+".csv"));
        ФС.УдалитьФайл(КаталогПользователя() + "report.txt");
    Исключение
        тПротокол = ТекущееВремя()+" ПРОИЗОШЛА ОШИБКА ВО ВРЕМЯ ЗАГРУЗКИ СФОРМИРОВАННОГО ФАЙЛА НА СЕРВЕР ИНЕТРНЕТ-МАГАЗИНА"+РазделительСтрок+тПротокол;
        тПротокол = ТекущееВремя()+ИмяПрайса+РазделительСтрок+тПротокол;
        Форма.Обновить();
        ТекстВыгрузки.Показать();
        ТекстВыгрузки = "";
    КонецПопытки;