Dim ftp1 As new ftpclient
ftp1.host="s138.288idc.com:2121"
ftp1.Account = "kevinguo8"
ftp1.password = "97110B5C6C14bd"
ftp1.TimeOut = 30000
ftp1.OpenManager("db/gb")

  我用这个代码直接打开空间按下载按钮,出来保存对话框,然后我将文件保存在一个D盘的word文件夹中,出现了一个错误,

此主题相关图片如下：tm截图未命名-1.jpg

  然后就在Word文件夹中出来一个相同的文件,打开是空白的,没有数据.

  然后我用代码处理下载,跟着帮助一摸一样做的:

Dim ftp1 As new ftpclient
ftp1.host="s138.288idc.com:2121"
ftp1.Account = "kevinguo8"
ftp1.password = "97110B5C6C14bd"
ftp1.TimeOut = 30000

If ftp1.FileExists("db/gb/关于文件下载.Xls") = False Then
    messageBox.show("今日没有文件")

   Return 
  End If
ftp1.Download("db/gb/关于文件下载.Xls","D:\\word\\关于下载文件.Xls")

  出来的错误跟着直接下载一样的问题.请查是什么原因?

  你的帮助是这样写的:

  Dim ftp1 As new ftpclient
ftp1.host="ftp.baidu.com"
ftp1.Account = "foxtable"
ftp1.password = "168168"
If ftp1.FileExists("/gd.mdb") = False Then
    MessageBox.Show("广东分公司还未上报今天数据","提示")
    Return
End If
ftp1.Download("/gd.mdb","c:\\temp\\gd.mdb") \'下载ftp上的上报文件

同样的代码我测试其他ftp都可以，不知道你这个为什么不行，我也难以理解的。

Network.DownloadFile("ftp://s138.288idc.com:2121/db/gb/BEN6238天铭辅料订购单.xls","D:\\Word\\BEN6238天铭辅料订购单.xls","kevinguo8","97110B5C6C14bd",False,100000,True)
Output.Show("下载成功")

老大,我今日改成这个测试,我把后面的命令全部去掉成功下载,但是我加上命令   并且为true,10000,true的情况下,测试出来错误,而且是一摸一样的错误,后来我把 showUI 改成 False 就可以成功下载了.

呵呵，我也学习了，居然还有这样的问题。

我下次更新，给ftp加个showui的属性算了。

老大,ftp下载本来有的吧!

Download

从FTP上下载文件，语法：

Download(sourceFileName, destinationFileName, ShowUI)

sourceFileName：要下载的文件，含路径
destinationFileName：保存下载文件的文件名和路径。
ShowUI：可选参数，逻辑型，是否显示下载进度。

  发现问题了,我再来测试ftp下载.

老大,肯定是进度条的问题:

Dim ftp1 As new ftpclient
ftp1.host="s138.288idc.com:2121"
ftp1.Account = "kevinguo8"
ftp1.password = "97110B5C6C14bd"
ftp1.TimeOut = 50000
If ftp1.FileExists("db/gb/BEN6238天铭辅料订购单.Xls") = False Then
    MessageBox.show("今日没有文件")
    Return Nothing
End If
ftp1.Download("db/gb/BEN6238天铭辅料订购单.xls","D:\\word\\关于下载文件.Xls",False)
Output.Show("下载成功")

  这个代码今日测试成功.我把进度条改成False.这个进度条是你自己写得,还是NET的命令啊.