намного проще без внешних компонент
Процедура ВигрузитиНаСайт()
Текст = СоздатьОбъект("Текст");
Текст.ДобавитьСтроку("open 100.100.100.100"); //наш сайт
Текст.ДобавитьСтроку("user логин пароль"); // логин и пароль на фтп
Текст.ДобавитьСтроку("binary");
Текст.ДобавитьСтроку("quote PASV");
Текст.ДобавитьСтроку("send d:\users.txt users.txt"); //файл що выгружаєм і його імя на сайті
Текст.ДобавитьСтроку("quit");
Текст.Записать("d:\ftpcmd.dat");
ФС.УстТекКаталог(КаталогИБ());
//КомандаСистемы("ftp -s:d:\ftpcmd.dat -n");
КомандаСистемы("ftp -s:d:\ftpcmd.dat -n >"+"d:\ftp.log");
// КомандаСистемы("ftp -s:ftpcmd.dat");
ФС.УдалитьФайл("d:\ftpcmd.dat");
КонецПроцедуры
Сообщение отредактировал volodya1122 - 08.04.14, 10:06