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

  • Автор темы johny
  • Дата начала
R

Ronchik

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

Fossil Code

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

johny

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

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

Ronchik

Гость
#5
Поиск файла по указаному пути
Код:
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
может это поможет
 
F

Fossil Code

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

Constantin A Chervonenko

Well-Known Member
Lotus team
30.05.2006
1 333
4
#7
Самостоятельно писать TCP/IP - приложение через WinAPI на лотусовом скрипте настоятельно не рекомендовал бы, ..
Аналогично.
TCP/IP прилады для LND нонче кошерно писать на Java. Для ftp у Sun есть даже заготовка (unsupported class). См Tips
 
J

johny

Гость
#8
Код:
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
вот и усе))
 

morpheus

скриптописец
07.08.2006
3 915
1
#10
Для: johny
кул, а это откудаво взято? в 6ке сработает?
 

Kee_Keekkenen

Well-Known Member
05.09.2006
639
6
#11
может это..<br>'+++++++++++++++++++++++++++++++++++++++<br>' NotesFTP Script Library (Notes.net sample)<br>' Copyright &copy; 2000 Paul D. Ray<br>' Last Update: May 29, 2000<br>'+++++++++++++++++++++++++++++++++++++++<br><br>
 

morpheus

скриптописец
07.08.2006
3 915
1
#12
Для: Kee_Keekkenen
не много не понял :blink: , а ссылка на оригинал есть? что за библиотека такая полезная?!!!