Dim ftp1 As new ftpclient ftp1.host="120.198.124.195" ftp1.Account = "und8042" ftp1.password = "und8042ssa" If ftp1.Download(dr("文件名称"),"c:\data\零时文件.doc") = True Then e.Form.Controls("WebBrowser1").Address="c:\data\零时文件.doc"
Else Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If