запись файла на сервер...

[Kintim]

Друзья.... А где ошибка?!?
НЕ записывает файл в директорию на сервере...

Код Выделить Развернуть

ТД = Новый ТекстовыйДокумент();

Код Выделить Развернуть

ИмяФайла = ("Myrrr" + ".csv");
//ТД.Записать(ИмяФайла, КодировкаТекста.UTF8);
Попытка
   ИмяFTPСервера               = "мойсайт.ру";
   ПортFTPСоединения           = "21";
   ПользовательFTPСоединения   = "ЛОГИН" ;
   ПарольFTPСоединения         = "ПАРОЛЬ" ;
   ПассивноеFTPСоединение      = Ложь;
   Соединение = Новый FTPСоединение(ИмяFTPСервера, ПортFTPСоединения,ПользовательFTPСоединения,ПарольFTPСоединения, ,ПассивноеFTPСоединение);
   Ппоиск = Соединение.НайтиФайлы("/путь/к/файлу/ " + ИмяФайла);
   Если Ппоиск.Количество() = 0 Тогда
     Соединение.ТД.Записать(ИмяФайла, КодировкаТекста.UTF8);           
   КонецЕсли;

  Исключение
    Сообщить("Ошибка записи файла на FTP!!!");
  КонецПопытки;

[Kintim]

Всем спасибо. Решилось Так:

Код Выделить Развернуть

ИмяФайла = ("Myrrr" + ".csv");
ТД.Записать(ИмяФайла, КодировкаТекста.UTF8);
  Попытка
    ИмяFTPСервера               = "мойсайт.ру";
    ПортFTPСоединения           = "21";
    ПользовательFTPСоединения   = "ЛОГИН" ;
    ПарольFTPСоединения         = "ПАРОЛЬ" ;
    ПассивноеFTPСоединение      = Ложь;
    Соединение = Новый FTPСоединение(ИмяFTPСервера, ПортFTPСоединения,ПользовательFTPСоединения,ПарольFTPСоединения, ,ПассивноеFTPСоединение);
    Ппоиск = Соединение.НайтиФайлы("/путь/к/файлу/Myrrr.csv");
    Если Ппоиск.Количество() = 0 Тогда
      Соединение.Записать(ИмяФайла, "/путь/к/файлу/Myrrr.csv");
    КонецЕсли;

  Исключение
    Сообщить("Ошибка записи файла на FTP!!!");
  КонецПопытки;