以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]不包含备份的文件夹  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=37159)
--  作者：laoshu4569
--  发布时间：2013/7/2 9:01:00
--  [求助]不包含备份的文件夹

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目录不备份 其他都备份怎么改呢
--  作者：Bin
--  发布时间：2013/7/2 9:19:00
--  
For Each File As String In GetFiles(ProjectPath)
 zip.AddFile(File,FileSys.GetName(File))
Next

For Each dir As String In GetDirectories(ProjectPath)
dim idx as integer=dir.LastIndexOf("\\")
if dir.SubString(idx+1,dir.length-idx-1) <> "Images" then
 For Each File As String In GetFiles(dir)
   zip.AddFile(File,dir & "\\" & FileSys.GetName(File))
 Next
Next
如果有多层目录 那么最好改为递归获取文件.