Dim web3 As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
If FileSys.FileExists(ProjectPath & "remotefiles\kmzb\web\shengji\yb\2.xlsx") = False Then
Dim ftp1 As New FtpClient
ftp1.Host="host138.101.sql.s"
ftp1.Account = "kmb"
ftp1.Password = "17d1ce8a"
ftp1.UTF8 = True
If ftp1.Download("\kmzb\web\shengji\yb\2.xlsx", ProjectPath & "remotefiles\kmzb\web\shengji\yb\2.xlsx") Then
web3.address = ProjectPath & "remotefiles\kmzb\web\shengji\yb\2.xlsx"
Else
messagebox.show("下载失败")
End If
Else
web3.address = ProjectPath & "remotefiles\kmzb\web\shengji\yb\2.xlsx"
End If
老师我在afterload中用上面代码是想在打开时自动下载样表，显示百网页浏览器中，在项目中可以，但发布后出现下载失败，请问是什么原因，如何改？
加好友 
发短信
Post By：2017/2/28 9:58:00 [显示全部帖子]
