Заготовка для загрузки файлов по ftp

Кусок моей реализации обмена по ftp. Сначала получает список файлов на ftp, анализируется, загружали ли его ранее (некоторые ftp не позволяют удалять файлы), а потом загружаются новые файлы и сохраняются в хранилище файлов. Далее файлы обрабатываются (здесь этих процедур уже нет) и при удачной обработке помечаются уже как загруженные. Если файл пришел пустой или неполный (а с ftp такое бывает), то файл помечается как битый и в следующий сеанс обмена снока загружается уже штатно. Как-то так.

 Процедура ПолучитьФайлыЗаказовFTP() Экспорт

    СоздатьКаталог(КаталогВременныхФайлов()+П_Настройки.ПапкаОбмена);
    ИмяЛогаFTP = КаталогВременныхФайлов()+"ftp1cList.log";
    ВыполнитьНаFTP("Список файлов",,ИмяЛогаFTP);
    СписокФайловНаFTP = СписокФайловДляПолученияFTP(ИмяЛогаFTP);
    УдалитьФайлы(ИмяЛогаFTP);

    Если СписокФайловНаFTP.Количество() = 0 Тогда
        Возврат;
    КонецЕсли;

    Для Каждого ИмяФайлаНаFTP из СписокФайловНаFTP Цикл //при желании можно добавить индикацию
        ВыполнитьНаFTP("Получить файлы",ИмяФайлаНаFTP);
    КонецЦикла;
    СписокФайлов = НайтиФайлы(КаталогВременныхФайлов()+П_Настройки.ПапкаОбмена,"*.txt");

    Для Каждого Файл из СписокФайлов Цикл
        ХранилищеФайла = Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент();
        ХранилищеФайла.Объект = Контрагент;
        ХранилищеФайла.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Файл;
        ХранилищеФайла.ИмяФайла = Файл.Имя;
        ХранилищеФайла.Хранилище = Новый ХранилищеЗначения(Новый ДвоичныеДанные(Файл.ПолноеИмя));
        ХранилищеФайла.Наименование = "Заявка - не загружена";
        Попытка
            ХранилищеФайла.Записать();
            ВыполнитьНаFTP("Удалить файл",Файл.Имя);
            УдалитьФайлы(КаталогВременныхФайлов()+П_Настройки.ПапкаОбмена+"\" + Файл.Имя);
        Исключение
            Сообщить("Не удалось записать в базу или удалить с ftp файл заказа "+Файл.Имя,СтатусСообщения.Важное);
        КонецПопытки;
    КонецЦикла;

КонецПроцедуры


//Файл лога нужен только для получения списка файлов на ftp
//Действие - далее в тексте процедуры видно какие значения может принимать и за что отвечает
//ИмяФайлов - строка, содержащая имя файла (может и несколько, только синтаксис ftp.exe не помню, а на практике лучше получать по одному)
//ФайлЛога - ну тут ясно
//П_Настройки - структура, которая хранится в глобальной переменной и заполняется ранее
Процедура ВыполнитьНаFTP(Действие,ИмяФайлов = "",ФайлЛога = "С:\ftp1c.log")

    выбПорт = "";
    П_Настройки.Свойство("Порт",выбПорт);
    Если Не ЗначениеЗаполнено(выбПорт) Тогда
        выбПорт = 21;
    КонецЕсли;

    выбЛогин = "";
    П_Настройки.Свойство("Логин",выбЛогин);

    выбПароль = "";
    П_Настройки.Свойство("Пароль",выбПароль);

    выбСервер = П_Настройки.АдресОбмена;

    выбПуть = "";
    П_Настройки.Свойство("КаталогОбмена",выбПуть);

    BatFile = Новый ТабличныйДокумент();

    МакетФайла = ЭтотОбъект.ПолучитьМакет("bat_FTP");

    ТекОбласть = МакетФайла.ПолучитьОбласть("ОбластьФайла");

    ТекОбласть.Параметры.Адрес =  выбСервер+" "+выбПорт;
    ТекОбласть.Параметры.Логин =  выбЛогин;
    ТекОбласть.Параметры.Пароль =  выбПароль;
    ТекОбласть.Параметры.Каталог =  выбПуть;
    ТекОбласть.Параметры.ЛокальныйКаталог =  Символ(34)+КаталогВременныхФайлов()+П_Настройки.ПапкаОбмена+Символ(34);
    Если Действие = "Получить файлы" Тогда
        ТекОбласть.Параметры.Действие = "mget "+ИмяФайлов;
    ИначеЕсли Действие = "Удалить файл" Тогда
        ТекОбласть.Параметры.Действие = "del "+ИмяФайлов; //не всегда дает удалять с ftp
    ИначеЕсли Действие = "Список файлов" Тогда
        ТекОбласть.Параметры.Действие = "ls . " + Символ(34) + ФайлЛога + Символ(34);
        //ТекОбласть.Параметры.ВыводВФайл =  " >>"+ФайлЛога;
    КонецЕсли;

    BatFile.Вывести(ТекОбласть);
    ИмяBatФайла = КаталогВременныхФайлов()+"FTP_.bat";
    BatFile.Записать(ИмяBatФайла,ТипФайлаТабличногоДокумента.ANSITXT);
    WshShell=Новый ComОбъект("WScript.Shell");
    КодВозвр=WshShell.Run("cmd /C " + Символ(34)+ ИмяBatФайла + Символ(34),0,-1);
    УдалитьФайлы(ИмяBatФайла);

КонецПроцедуры

//Проверим список уже загруженных файлов, чтобы не загружать их снова
//ИмяЛогаFTP - список файлов раннее был получен с помощью батника (в другой процедуре) и помещен в этот файл.
Функция СписокФайловДляПолученияFTP(ИмяЛогаFTP)
    Запрос = Новый Запрос();
    Запрос.Текст = "ВЫБРАТЬ
                   |    ХранилищеДополнительнойИнформации.Ссылка
                   |ИЗ
                   |    Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации
                   |ГДЕ
                   |    ХранилищеДополнительнойИнформации.Объект = &Контрагент
                   |    И ХранилищеДополнительнойИнформации.ИмяФайла ПОДОБНО &ИмяФайла";
    Запрос.УстановитьПараметр("Контрагент",Контрагент);
    Лог = Новый ТекстовыйДокумент();
    Лог.Прочитать(ИмяЛогаFTP);
    ФайлыДляПолучения = Новый Массив();
    Для НомерСтроки = 1 по Лог.КоличествоСтрок() Цикл
        Строка = Лог.ПолучитьСтроку(НомерСтроки);
        ИмяФайла = СтрЗаменить(Строка,"./","");
        Запрос.УстановитьПараметр("ИмяФайла",ИмяФайла);
        Результат = Запрос.Выполнить().Выбрать();
        Если Результат.Следующий() Тогда
            Продолжить;
        КонецЕсли;
        ФайлыДляПолучения.Добавить(Символ(34) + ИмяФайла + Символ(34));
    КонецЦикла;
    Возврат(ФайлыДляПолучения);
КонецФункции

Макет тоже простой. Каждая строчка в отдельной строке. Надеюсь разберетесь, где параметр, а где шаблон?