关于上传到ftp的问题,谢谢给予指教的人!!!

cbice2004 2006-06-12 11:49:53

我引用了一个Use "NotesFtp",建立了一个代理为:GetFtp.
代理的Initialize代码如下
Sub Initialize
Dim objFTP As New NotesFTPSession
With objFTP
.Connect "10.195.0.70", "chenb", "4993430", 0
.ChangeDirectory "doc"
.GetFile "bn.doc","E:\bn1.doc",FTP_TRANSFER_TYPE_ASCII
.Disconnect
End With

Delete objFTP
End Sub
在表单中的一个按纽的代码如下:
@Command([ToolsRunMacro]; "GetFtp") //执行代理
ftp的路径为:
ftp://10.195.0.70/doc/
里面有bn.doc文件.现在问题是点击那按纽后出现
HTTP Web Server: Lotus Notes Exception - Invalid document identifier 错误!
如何解决呢?

...全文

398 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

sunjianh 2007-04-20

打赏
举报

我在windows下也成功了，但是Linux下不行

sunjianh 2007-04-13

打赏
举报

问一下这个类在AIX下能正常使用吗？

sunjianh 2007-04-13

打赏
举报

真的是好东西保留一份

tottilou 2006-12-21

打赏
举报

好东西!

rosten 2006-12-20

打赏
举报

我用了Ux172的方法，提示：连接不到远程ftp服务器。。。。

ux172 2006-12-19

打赏
举报

我把NotesFTP Library放在這裡:
http://rose3066.googlepages.com/notesftp

ux172 2006-12-19

打赏
举报

我的可以成功getFile
寫法:
Dim objFTP As NotesFTPSession

Set objFTP=New NotesFTPSession

With objFTP
.Connect "xxx.xxx.xxx.xxx", "Account", "Password", 0
.ChangeDirectory "/FolderNameA/FolderNameB/"
.GetFile "FileName", "C:\Filename", FTP_TRANSFER_TYPE_ASCII
.Disconnect
End With

Delete objFTP

jslyl 2006-06-16