先下载,再打开
Dim ftp As FTPClient = Tables("文件管理登记表").Cols("文件内容").DataCol.FTPClient
Dim fpath As String = Tables("文件管理登记表").current("文件内容")
Dim bpath As String = Tables("文件管理登记表").current("文件内容")
If ftp.Download(fpath, bpath) Then
Dim Proc As New Process '定义一个新的Process
Proc.File = bpath
Proc.Start()
End If