主题：保存文件为什么出错

导出电子表格能解决

Dim ex As New Exporter
ex.SourceTableName = CurrentTable.name '指定导出表
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    ex.FilePath =  dlg.FileName
    MessageBox.Show("保存在:" & dlg.FileName,"提示") '提示用户选择的文件
End If
ex.Format = "Excel" '导出格式为Excel
ex.NewTableName =  CurrentTable.name '指定文件名,注意无须扩展名
ex.Export() '开始导出

这样可以导出DBF文件格式　文件

Dim ex As New Exporter
ex.SourceTableName = CurrentTable.name '指定导出表
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    ex.FilePath =  dlg.SelectedPath
    MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
    ex.Format = "dbase" '导出格式

    ex.NewTableName =  CurrentTable.name '指定文件名,注意无须扩展名
    ex.Export() '开始导出
End If

 一楼出错是肯定的，因为SaveFileDialog的FileName是包含文件名的。

而FolderBrowserDialog的SelectedPath只是一个目录名称。

另外一楼也很矛盾，既手工输入文件名，又指定文件名。

如果用SaveFileDialog ，这样好像也行。

Dim ex As New Exporter
ex.SourceTableName = CurrentTable.name '指定导出表
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "数据库格式|*.dbase" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    ex.FilePath =  FileSys.GetFileInfo(dlg.FileName).DirectoryName '保存路径
    MessageBox.Show("保存在:" & dlg.FileName,"提示") '提示用户选择的文件
End If
ex.Format = "dbase" '导出格式
ex.NewTableName = FileSys.GetFileInfo(dlg.FileName).Name.Replace(".dbase","") '指定文件名,注意无须扩展名
ex.Export() '开始导出