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