агент для закачки файлов с фтп

[johny]

помогите люди добрые!

 

[Ronchik]

Предлагаю на винде создать сетевой диск с подключением на нужный ресурс, а уже потом писать агента

 

[Fossil Code]

Гораздо приятнее (и надежнее) качать другими средствами, автоматизирующими доступ к фтп, помещать файлы в место, доступное Лотусу, а оттуда уже забирать агентом.

 

[johny]

это не подходит....
надо чтоб агент выполнял команду list "*.txt"
потом dirlist
а потом сохранял в нужном каталоге с оригинальными именами

может у кого есть инфа по работе с фтп в lotus script'e?

 

[Ronchik]

Поиск файла по указаному пути

Function FBool(FilePath As String) As Boolean 'для поика файла
Dim fileNameArray As String
FBool=False
fileNameArray = Dir$(FilePath, 0)
Do While fileNameArray <> ""
If fileNameArray = FileName Then FBool=True
fileNameArray = Dir$()
Loop
End Function

может это поможет

 

[Fossil Code]

Самостоятельно писать TCP/IP - приложение через WinAPI на лотусовом скрипте настоятельно не рекомендовал бы, но на вкус и цвет... Есть (был) в Дельфи компонент, представляющий как раз сравнительно высокоуровневый интерфейс к функциям обмена по фтп. Если это DLL, или если встроить требуемый Вами функционал в DLL, то обращаться к ней из агента будет намного проще. Но это уже к Дельфийским гуру

 

[Constantin A Chervonenko]

Самостоятельно писать TCP/IP - приложение через WinAPI на лотусовом скрипте настоятельно не рекомендовал бы, ..

Аналогично.
TCP/IP прилады для LND нонче кошерно писать на Java. Для ftp у Sun есть даже заготовка (unsupported class). См

Ссылка скрыта от гостей

 

[johny]

Set objFTP=New NotesFTPSession
With objFTP
.Connect serFtp$,ftpLogin$ , ftppass$, 0
.ChangeDirectory 	ftpDir$	
vFiles=.Dir(mask$)
If Isempty ( vFiles ) Then Exit Sub
For n%=0 To Ubound(vFiles)
.GetFile vFiles(n%), pathname$+vFiles(n%), FTP_TRANSFER_TYPE_ASCII
.DeleteFile vFiles(n%)
Next		
.Disconnect
End With
Delete objFTP

вот и усе))

 

[Kee_Keekkenen]

сам догадался или подсмотрел ?

 

[morpheus]

Для: johny
кул, а это откудаво взято? в 6ке сработает?

 

[Kee_Keekkenen]

может это..<br>'+++++++++++++++++++++++++++++++++++++++<br>' NotesFTP Script Library (Notes.net sample)<br>' Copyright © 2000 Paul D. Ray<br>' Last Update: May 29, 2000<br>'+++++++++++++++++++++++++++++++++++++++<br><br>

 

[morpheus]

Для: Kee_Keekkenen
не много не понял :blink: , а ссылка на оригинал есть? что за библиотека такая полезная?!!!

 

[Constantin A Chervonenko]

См в "песочнице". Но она-таки чистА под WinAPI заточена

 

[morpheus]

Для: Constantin A Chervonenko
я так понимаю вот оно -

Ссылка скрыта от гостей

хм.. ярчайший пример использования WinAPI

 

[johny]

Терпение и труд - все перетрут