主题：[求助]关于数据表备份

Dim dlg As New SaveFileDialog   '指定一个新的SaveFileDialog

dlg.Filter= "备份文件|*.DBF "   '设置筛选器

dlg.title= "备份数据"

dlg.OverwritePrompt = True  '对于已经存在的文件名,是否出现覆盖警告

If dlg.ShowDialog = DialogResult.Ok Then   '如果用户单击了确定按钮

    If FileSys.FileExists(dlg.filename) Then    '如果指定的文件存在

        FileSys.DeleteFile(dlg.filename,2,2)     '则彻底删除之

    End If

    Dim ex As New Exporter

    ex.SourceTableName = "合作单位表"   '指定导出表

    ex.SourceTableName = "工程清单表"   '指定导出表

    ex.SourceTableName = "合同清单表"   '指定导出表

    ex.SourceTableName = "客户名单表"   '指定导出表

    ex.SourceTableName = "事务清单表"   '指定导出表

    ex.SourceTableName = "收款明细表"   '指定导出表

    ex.SourceTableName = "收款清单表"   '指定导出表

    ex.Format = "excel"   '指定导出文件格式

    'ex. PassWord = "TZX_GWY_JT_8888"  '用此属性指定目标文件的密码

    ex.filepath =  dlg.filename    '指定目标文件

    ex.NewTableName = "合作单位表"        '指定导出后的表的名称

    ex.NewTableName = "工程清单表"        '指定导出后的表的名称

    ex.NewTableName = "合同清单表"        '指定导出后的表的名称

    ex.NewTableName = "客户名单表"        '指定导出后的表的名称

    ex.NewTableName = "事务清单表"        '指定导出后的表的名称

    ex.NewTableName = "收款明细表"        '指定导出后的表的名称

    ex.NewTableName = "收款清单表"        '指定导出后的表的名称

    ex.Export()    '开始导出数据

    MessageBox.Show("备份数据生成完成!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

End If