主题：[求助]备份项目

很简单啊：

Dim zip As New zipFile
zip.Create("D:\机关值班管理系统\机关值班管理系统备份\beifen.zip")
For Each  f As String In filesys.GetFiles("D:\机关值班管理系统\Publish")
    zip.AddFile(f)
Next
For Each f As String In filesys.GetDirectories("D:\机关值班管理系统\Publish")
    If Filesys.GetName(f) <> "Attachments" Then
        zip.AddFolder(f)
    End If
Next
zip.Close()  '我用这个备份  也就是在关闭项目之前备份