专家坐堂-怎么实现根据vars("原文件名") 选择保存一个新的文件路径呢？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么实现根据vars("原文件名") 选择保存一个新的文件路径呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175645)

--  作者：cnsjroom
--  发布时间：2022/3/13 23:25:00
--  怎么实现根据vars("原文件名") 选择保存一个新的文件路径呢？

vars("原文件名") 定义了文件路径

怎么实现根据vars("原文件名") 选择保存一个新的文件路径呢？

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "文本文件|*.*" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    MessageBox.Show("你要保存为:" & dlg.FileName,"提示") \'提示用户选择的文件
End If

--  作者：有点蓝
--  发布时间：2022/3/14 8:28:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "文本文件|*.*" \'设置筛选器
dlg.FileName = vars("原文件名")
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    MessageBox.Show("你要保存为:" & dlg.FileName,"提示") \'提示用户选择的文件
End If