主题：[求助]不包含备份的文件夹

Dim zip As New zipFile
zip.Create("c:\data\backup.zip")
zip.AddFile(ProjectFile)
For Each File As String In FileSys.GetFiles(ProjectPath & "Images")
    zip.AddFile(File, "Images\" & FileSys.GetName(File))
Next
zip.Close()

事例代码中有只备份 Images目录  如果要改成 Images目录不备份 其他都备份怎么改呢