专家坐堂-保存文本文件时提示不是有效的路径Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  保存文本文件时提示不是有效的路径  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97854)

--  作者：huangxueyao
--  发布时间：2017/3/20 8:23:00
--  保存文本文件时提示不是有效的路径

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "txt文件|*.txt" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
Dim t As Date
t = Date.now
ex.SourceTableName = "库存盘点" \'指定导出表
\'ex.FilePath = "D:\\下载\\" \'指定目标文件路径
ex.filepath = dlg.FileName \'指定目标文件
ex.Format = "Delimited" \'导出格式为固定宽度的文本文件
ex.Fields = "商品编码,库存数量"
ex.NewTableName = "当前库存" & t \'指定文件名,注意无须扩展名
ex.Header = False
ex.Export() \'开始导出
End If

怎么破？

--  作者：有点色
--  发布时间：2017/3/20 10:34:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "txt文件|*.txt" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    Dim t As Date
    t = Date.now
    ex.SourceTableName = "库存盘点" \'指定导出表
    \'ex.FilePath = "D:\\下载\\"   \'指定目标文件路径
    ex.filepath = FileSys.GetParentPath(dlg.FileName) \'指定目标文件
    ex.Format = "Delimited" \'导出格式为固定宽度的文本文件
    ex.Fields = "商品编码,库存数量"
    ex.NewTableName = "当前库存" & t \'指定文件名,注意无须扩展名
    ex.Header = False
    ex.Export() \'开始导出
End If