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