以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何直接打开FTP上的文件？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102839)
--  作者：l20j07
--  发布时间：2017/6/26 17:04:00
--  如何直接打开FTP上的文件？

 

MessageBox.show(e.Row(1))
Dim ftp1 As New FtpClient
ftp1.Host="10.**.**.*0"
ftp1.Account = "y*****r"
ftp1.Password = "y********56"
ftp1.UTF8 = False
ftp1.Changedir("\\")

MessageBox.show(ftp1.Download(e.Row(1),"E:\\桌面\\111.pdf"))

 

 

第二列中都是FTP文件的地址，比如“00运行二处FTP\\01 技术规程\\07 KIC事故规程 op02\\01 38号机组\\02 KIC事故规程 WORD\\FQ3-OP02-AC-U1 极限事故堆芯监视规程 001 01版\\FQ3-OP02-AC-U1 极限事故堆芯监视规程 001 01版\\FQ3-OP02-AC-U1 极限事故堆芯监视规程 001 01版\\348定值手册清单0601.pdf”

 

但是每次运行都失败，能看出原因么？
--  作者：有点色
--  发布时间：2017/6/26 18:16:00
--  

试试

 

Dim ftp As FTPClient = e.Col.DataCol.FTPClient
msgbox(ftp.RootDir & e.Row("第二列"))
If ftp.Download(ftp.RootDir & e.Row("第二列"), ProjectPath & "temp.jpg", true) Then
    msgbox("下载成功")
Else
    msgbox("下载失败")
End If