|
Dim f As String
Dim fc As String
Dim rqf As Date = Date.today
Dim rq As String=Format(rqf, "yyyyMMdd")
Dim q As Date = Date.now
Dim s As String=Format(q, "HHmmss")
Dim Names As String() = {"表A"}
For Each Name As String In Names
Dim ex As New Exporter
ex.SourceTableName = name '指定导出表
ex.filepath = ProjectPath & "backup" & "\" & rq & "-" & s & ".mdb" '指定目标文件
ex.PassWord="shoubang.com"
ex.Export() '开始导出
f=ex.filepath
fc=f & "加密"
Next
EncryptFile(f, fc, "fox")
FileSys.DeleteFile(f,2,2)
MessageBox.Show("备份数据保存成功!" & fc)
|
加好友 
发短信
Post By：2015/7/6 14:57:00 [显示全部帖子]
