- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 下载文件时能否调用“另存为”功能 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81356)
-- 发布时间：2016/2/25 16:46:00
-- 下载文件时能否调用“另存为”功能
在使用Network.DownloadFile功能下载文件时代码里需要指定下载路径。
现有程序如图，能否在我点击【下载查看】按钮时，直接弹出 文件管理器 中 另存 按钮的对话框呢？
如果能，麻烦发下教程连接或者指点一下。
此主题相关图片如下：另存为.png
[此贴子已经被作者于2016/2/25 16:47:03编辑过]
-- 发布时间：2016/2/25 16:47:00
--
参考
http://www.foxtable.com/help/topics/0329.htm
-- 发布时间：2016/2/25 17:01:00
--
下面是我【下载查看】按钮的代码，幼狐愚钝，袍哥能否再明示一下？
Dim xz As Row = CurrentTable.Current
Dim lb As String = xz("文件下载")
Dim bl As String = xz("文件名称")
Network.DownloadFile("ftp://administrator:*******@218.56.43.119" & lb, "d:\\烟建集团有限公司\\人力资源管理系统\\人力资源制度.wps" ,"" ,"" ,True, 100000, True)
Dim Proc As New Process
Proc.File = "d:\\烟建集团有限公司\\人力资源管理系统\\人力资源制度.wps"
Proc.Start()
-- 发布时间：2016/2/25 17:04:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
Dim xz As Row = CurrentTable.Current
Dim lb As String = xz("文件下载")
Dim bl As String = xz("文件名称")
dlg.Filter = "文件|.wps"
dlg.FileName = bl
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Network.DownloadFile("ftp://administrator:*******@218.56.43.119" & lb, dlg.FileName,"" ,"" ,True, 100000, True)
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End If
-- 发布时间：2016/2/25 17:24:00
--
谢袍哥！