主题：高手请进来，看看，

如下

 

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

我测试你的代码和2楼的代码没问题，可以正常下载。