Dim dlg As New SaveFileDialog '指定一个新的SaveFileDialog(保存文件对话框) dlg.Filter= "上报文件|*.DSB" '设置筛选器 dlg. title= "生成上报文件" '设置对话框标题 dlg.OverwritePrompt = False If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 If FileSys.FileExists(dlg.filename) Then '如果指定的文件存在 If Messagebox.Show("有同名文件存在,是否删除?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then FileSys.DeleteFile(dlg.filename,2,2) '则彻底删除之 Else MessageBox.Show("你取消删除同名文件,系统停止生成上报文件!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information) Return End If End If Dim Names() As String = {"调资基础数据","职务变动基础信息"} For Each nm As String In Names Dim ex as New Exporter ex.SourceTableName = nm '指定导出表 ex.Format = "Access" '指定导出文件格式 ex. PassWord = "TZX_GWY_JT_8888" '用此属性指定目标文件的密码 ex.filepath = dlg.filename '指定目标文件 ex.NewTableName = nm '指定导出后的表的名称 ex.Export() '开始导出数据 Next Dim f As Io.FileInfo = FileSys.GetFileInfo(dlg.filename) FileSys.RenameFile(dlg.filename,f.Name & ".bak") EncryptFile(dlg.filename & ".bak", dlg.filename,"8888") MessageBox.Show("上报数据生成完成!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information) FileSys.DeleteFile(dlg.filename & ".bak", 2, 2) Sendkeys.Send("{F11}") End If
|