Выгрузка 1С на FTP

Выгрузка 1С на FTP

Попытка
    Лог("Начата выгрузка на ftp");
    ИмяFTPСервера               = "имя сервера";
    ПортFTPСоединения           = "21";
    ПользовательFTPСоединения   = "логин для подключения к ftp";
    ПарольFTPСоединения         =  "пароль для подключения к ftp";
    ПассивноеFTPСоединение      =  Ложь;
    Соединение = Новый FTPСоединение(ИмяFTPСервера, ПортFTPСоединения,ПользовательFTPСоединения,ПарольFTPСоединения, ,ПассивноеFTPСоединение);
    
    НайденныеФайлы = НайтиФайлы("D:\1C\SITEOBMEN\1cbitrix\", "*.*", Истина); //папка с которой все будет копировать на ftp
    Для Каждого Строка Из НайденныеФайлы
      Цикл
        Попытка
          ФаилФТП = Стрзаменить(Строка.ПолноеИмя, "D:\1C\SITEOBMEN\1cbitrix", "");
          ФаилФТП = Стрзаменить(ФаилФТП, "\", "/");
          Если Строка.ИмяБезРасширения = Строка.Имя
            Тогда
              Соединение.СоздатьКаталог(ФаилФТП);
            Иначе
              Соединение.Записать(Строка.ПолноеИмя, ФаилФТП);
          КонецЕсли;
          Лог("Фаил записан на ftp: " + Строка.ПолноеИмя);
        Исключение
          Лог(ОписаниеОшибки());
        КонецПопытки;
    КонецЦикла;
    Лог("Загрузка на ftp завершена");
  Исключение
    Лог(ОписаниеОшибки());
  КонецПопытки;