以下是引用lin_hailun在2012-9-8 18:02:00的发言：
备份数据代码
Dim zip As New zipFile
Dim zFile As String = "d:\backup.zip" '保存的路径
Dim NewName As String
NewName = Date.Today.Month & "." & Date.Today.Day & "." & Date.Now.Hour & ".Table"
If FileSys.FileExists(zfile) Then '如果压缩文件已经存在
zip.Open(zFile) '则打开
Else
zip.Create(zFile) '否则创建
End If
zip.AddFile(ProjectFile, NewName)
zip.Close()
如果需要每隔30分钟备份一次，每次备份的文件分开用时间所区分的文件名保存，如：备份数据2012-02-09 15:30.zip,备份数据2012-05-09 15:40.zip,这样的，能实现吗，这样便于恢复到最近无问题的数据。
[此贴子已经被作者于2012-9-9 14:24:00编辑过]
加好友 
发短信
Post By：2012/9/8 17:45:00 [显示全部帖子]
