На PORTA.ru
ОГРОМНЫЙ выбор портативной техники:
MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки |
||
Работа с 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 |