主题：[求助]项目备份的是时间频率可以调整吗？

 备份数据代码

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()