专家坐堂-高手请进来，看看，Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  高手请进来，看看，  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=112822)

--  作者：UBSS
--  发布时间：2018/1/3 15:20:00
--  高手请进来，看看，
如下，请看我这做一个下载的功能，但运行就说下载失败，请问高手，我这代码那有错

Dim ftp1 As new ftpclient
ftp1.host="121.42.100.247"
ftp1.Account = "qxw1192590206"
ftp1.password = "ubss987654"
If ftp1.Download("元初软件著作权扫描件.jpg","d:\\元初软件著作权扫描件.jpg") = True Then
Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

--  作者：有点甜
--  发布时间：2018/1/3 15:57:00
--

如下

Dim ftp1 As new ftpclient
ftp1.host="121.42.100.247"
ftp1.Account = "qxw1192590206"
ftp1.password = "ubss987654"
If ftp1.Download("/元初软件著作权扫描件.jpg","d:\\元初软件著作权扫描件.jpg") = True Then
    Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

--  作者：有点甜
--  发布时间：2018/1/3 15:57:00
--
我测试你的代码和2楼的代码没问题，可以正常下载。