| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 局域网下载问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93645) |
| -- 作者：douglas738888 -- 发布时间：2016/12/3 10:16:00 -- 局域网下载问题 蓝老师早，请教，为了下载方便，下载自动安装，各台计算机新装发布的项目时，如果在服务器上建立一个文件夹里面放发布好的项目供下载，怎样写代码
点击下载按钮，出现下载一般常用的下载窗进行下载，请老师指导指导。 |
| -- 作者：有点蓝 -- 发布时间：2016/12/3 10:27:00 -- 下载文件参考：http://www.foxtable.com/webhelp/scr/1402.htm 如果想做自动升级参考：http://www.foxtable.com/webhelp/scr/2934.htm
|
| -- 作者：douglas738888 -- 发布时间：2016/12/3 11:12:00 -- 老师，下面的代码，无法指定到计算机的桌面，每次下载都在WC下新建一个文件夹DESKTOP，另外我看了SaveFileDialog，不是很懂，怎样下载时候另存为.....的选择 Network.DownloadFile("\\\\kmctzd\\foxtable$\\publish.zip", "C:\\Users\\WC\\Desktop\\publish.zip" ,"" ,"" ,True, 100000, True) |
| -- 作者：有点蓝 -- 发布时间：2016/12/3 11:23:00 -- 1、不要保存到桌面 2、 Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "所有文件|*.*" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Network.DownloadFile("\\\\kmctzd\\foxtable$\\publish.zip", dlg.FileName ,"" ,"" ,True, 100000, True) End If |