| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 自动下载 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96803) |
| -- 作者：刘林 -- 发布时间：2017/2/28 9:58:00 -- 自动下载 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中用上面代码是想在打开时自动下载样表，显示百网页浏览器中，在项目中可以，但发布后出现下载失败，请问是什么原因，如何改？
|
| -- 作者：有点蓝 -- 发布时间：2017/2/28 10:49:00 -- 提示什么错误？
发布后的路径有没有这一长串的目录存在：remotefiles\\kmzb\\web\\shengji\\yb\\ |
| -- 作者：刘林 -- 发布时间：2017/2/28 11:13:00 -- 提示是下载失败，发布后的路径是没有remotefiles\\kmzb\\web\\shengji\\yb\\,但下载时不是要自动创建这个目录吗？ |
| -- 作者：有点色 -- 发布时间：2017/2/28 11:30:00 -- 1、你的ftp1最后一定要记得close掉 ftp1.Close 不然的话，你的ftp连接数会越来越多，直到最后崩溃。
2、你要先创建文件夹
FileSys.CreateDirectory( ProjectPath & "remotefiles\\kmzb\\web\\shengji\\yb\\")
|
| -- 作者：刘林 -- 发布时间：2017/2/28 11:35:00 -- If ftp1.Download("\\kmzb\\web\\shengji\\yb\\2.xlsx", ProjectPath & "remotefiles\\kmzb\\web\\shengji\\yb\\2.xlsx") Then If ftp1.Download("\\kmzb\\web\\shengji\\yb\\2.xlsx", ProjectPath & "remotefiles\\kmzb\\web\\shengji\\yb\\2.xlsx"，true) Then
老师我发现了，改成第二句就可以了，不晓得是不是这个原因 |
| -- 作者：有点蓝 -- 发布时间：2017/2/28 11:35:00 -- 不会自动创建目录的
要自己创建http://www.foxtable.com/webhelp/scr/0332.htm
|
| -- 作者：刘林 -- 发布时间：2017/2/28 11:50:00 -- 我改成这个后发布测试了，会自动创建目录，如果将创建的目录和文件删了，重新打开窗口也会自动创建呢 |
| -- 作者：有点色 -- 发布时间：2017/2/28 13:00:00 -- 加上代码，一样
FileSys.CreateDirectory( ProjectPath & "remotefiles\\kmzb\\web\\shengji\\yb\\")
如果你设置成true的话，会显示下载对话框的。如果你想显示的话。。。 |