主题：在菜单里设置一个备份Access数据源的菜单怎么设置

语法：

AddFile(FileName)
AddFile(FileName, NewFileName)

FileName:       要压缩的文件名，含路径。
NewFileName：   可选参数，设置压缩后的文件名，可以包括路径。

示例一：

Dim zip As New zipFile
zip.Create("c:\data\foxtable.zip")
zip.AddFile("c:\publish\foxtable.exe")
zip.Close()

示例二:

备份项目文件，并按照“月.日”的格式重命名压缩后的文件名，这样我们可以同一个压缩文件中保留项目的多个备份:

Dim zip As New zipFile
Dim zFile As String = "c:\data\backup.zip"
Dim NewName As String
NewName = Date.Today.Month & "." & Date.Today.Day & ".Table"
If FileSys.FileExists(zfile) Then '如果压缩文件已经存在
    zip.Open(zFile) '则打开
Else
    zip.Create(zFile) '否则创建
End If
zip.AddFile(ProjectFile, NewName)
zip.Close()