PORTA.ru - on-line магазин ПОРТАтивной техники.PORTA.ru - on-line магазин ПОРТАтивной техники.

Новости
Мои разработки
FAQ
Ссылки
Форум

Работа с ftp

Выгрузить файл автоматом на ftp:
// Глобальная процедура
Процедура глФТП(СписокКоманд) Экспорт
     Текст = СоздатьОбъект("Текст");
     Для Инд = 1 По СписокКоманд.РазмерСписка() Цикл
          Текст.ДобавитьСтроку(СписокКоманд.ПолучитьЗначение(Инд));
     КонецЦикла;
     Текст.Записать(КаталогИБ() + "ftp\par.ftp");
     ФС.УстТекКаталог(КаталогИБ() + "ftp\");
     КомандаСистемы("ftp -s:" + КаталогИБ() + "ftp\par.ftp");
     ФС.УдалитьФайл(КаталогИБ() + "ftp\par.ftp");
КонецПроцедуры
// При вызове передаем ей список значений с командами, например:
Процедура Сформировать()
     Список = СоздатьОбъект("СписокЗначений");
     Список.ДобавитьЗначение("open " + СокрЛП(Адрес));
     Список.ДобавитьЗначение(СокрЛП(Пользователь));
     Список.ДобавитьЗначение(СокрЛП(Пароль));
     Список.ДобавитьЗначение("get " + СокрЛП(ПутьКФайлу));
     Список.ДобавитьЗначение("quit");
     глФТП(Список);
КонецПроцедуры

<сообщил Kostya>

- Наверх -

В качестве благодарности за решение проблемы, щелкните здесь.
Поддержите развитие сайта.
Спасибо!
Автор и разработчик: Кайгородов Андрей aka mszsuz. mszsuz@online.sinor.ru ICQ#33993114. Дата последнего обновления страницы: Friday 09.04.2004 16:52
1C:TOP-100 Рейтинг ресурсов 1С
Hosted by uCoz