Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动下载


  共有2136人关注过本帖树形打印复制链接

主题：自动下载
帅哥哟，离线，有人找我吗？
刘林
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		自动下载  发帖心情 Post By：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中用上面代码是想在打开时自动下载样表，显示百网页浏览器中，在项目中可以，但发布后出现下载失败，请问是什么原因，如何改？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110567 积分：562725 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/2/28 10:49:00 [只看该作者]

提示什么错误？

 

发布后的路径有没有这一长串的目录存在：remotefiles\kmzb\web\shengji\yb\
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/2/28 11:13:00 [只看该作者]

提示是下载失败，发布后的路径是没有remotefiles\kmzb\web\shengji\yb\,但下载时不是要自动创建这个目录吗？

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/28 11:30:00 [只看该作者]

1、你的ftp1最后一定要记得close掉 ftp1.Close 不然的话，你的ftp连接数会越来越多，直到最后崩溃。

 

2、你要先创建文件夹

 

FileSys.CreateDirectory( ProjectPath & "remotefiles\kmzb\web\shengji\yb\")

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：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
老师我发现了，改成第二句就可以了，不晓得是不是这个原因
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110567 积分：562725 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/2/28 11:35:00 [只看该作者]

不会自动创建目录的

 

要自己创建http://www.foxtable.com/webhelp/scr/0332.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/2/28 11:50:00 [只看该作者]

我改成这个后发布测试了，会自动创建目录，如果将创建的目录和文件删了，重新打开窗口也会自动创建呢

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/28 13:00:00 [只看该作者]

加上代码，一样

 

FileSys.CreateDirectory( ProjectPath & "remotefiles\kmzb\web\shengji\yb\")

 

如果你设置成true的话，会显示下载对话框的。如果你想显示的话。。。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询