If Tables("知识文档").Current IsNot Nothing Then
Dim ftp1 As new ftpclient
ftp1.host="10.60.128.146"
ftp1.Account = "ftpuser"
ftp1.password = "bnm,./123"
Dim lj As String = Tables("知识文档").Current("路径")
Dim fp As String = "\myftp\管理规定" & lj
Dim wjm As String = Tables("知识文档").Current("文件名")
msgbox(projectpath & "RemoteFiles\" & wjm)
If ftp1.Download(fp,projectpath & "RemoteFiles\" & wjm) = True Then
Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If