Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 20:34

ФТП не получает файл.

Автор maxxi, 05 ноя 2022, 06:19

0 Пользователей и 1 гость просматривают эту тему.

maxxi

Здравствуйте, есть такой код:
Работают через Регламентное задание.
В журнале регистрации то появляется Отмена, то Заверщено.
Но не могу получить через эту процедуру файл.

Процедура  Мой_FTP() Экспорт
   
АдресСайта = "1.1.1.1" ;
Порт = 21;
Логин = "Administrator";
Пароль = "password";
ИмяКаталога = "C:/ftp";
FTPСоединение = Новый FTPСоединение(АдресСайта,Порт,Логин,Пароль);
FTPСоединение.УстановитьТекущийКаталог(ИмяКаталога);

ИмяФайла="sotrudniki.csv";

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

ВременныйФайл = ПолучитьИмяВременногоФайла("csv");

FTPСоединение .Получить(ИмяФайла,ВременныйФайл );

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

ТекстовыйДок.Прочитать(ИмяФайла, "windows-1251");

ТекстовыйДок.Записать("C:/ftp/sotrudniki.csv");

antoneus

А слеши не обратные надо? "C:\ftp"

maxxi

antoneus, antoneus, сделала как вы сказали.

maxxi


maxxi


antoneus

Я имел в виду везде.
С:\ftp\domstroy555.csv

maxxi

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

МойФайл="D:/test2.txt";

FTPСоединение= Новый FTPСоединение("Server", , "login", "Pass", ,Истина,20);

Попытка

FTPСоединение.УстановитьТекущийКаталог("/");
FTPСоединение.Записать(МойФайл,"/test2.txt");

Сообщение = Новый СообщениеПользователю;
Сообщение.Текст="Файл загружен.";
Сообщение.Сообщить();

Исключение

Сообщение = Новый СообщениеПользователю;
Сообщение.Текст="Ошибка загрузки: "+ ОписаниеОшибки();
Сообщение.Сообщить();

КонецПопытки;

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

Изменил код на такой.
Все работает.
Спасибо большое Вам.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск