以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]备份项目  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=33527)

--  作者:laoshu4569
--  发布时间:2013/5/20 12:01:00
--  [求助]备份项目
在备份项目的时候 怎样单独不去备份\\Publish\\Project\\Attachments目录下的文件 
--  作者:Bin
--  发布时间:2013/5/20 12:02:00
--  
使用系统备份命令的话没办法控制.
--  作者:laoshu4569
--  发布时间:2013/5/20 12:06:00
--  
Dim zip As New zipFile
zip.Create("D:\\机关值班管理系统\\机关值班管理系统备份\\beifen.zip")
zip.AddFolder("D:\\机关值班管理系统\\Publish")
zip.Close()  我用这个备份  也就是在关闭项目之前备份

--  作者:Bin
--  发布时间:2013/5/20 12:10:00
--  
AddFile 和 AddFolder一起使用吧.你不要一下子打包整个Publish文件夹
而是打包里面所有的文件 和你需要打包的文件夹(除去Attachments)即可.

--  作者:laoshu4569
--  发布时间:2013/5/20 12:24:00
--  
问题 怎样写那段除去Attachments的代码呢
--  作者:狐狸爸爸
--  发布时间:2013/5/20 16:44:00
--  

很简单啊:

 

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()  \'我用这个备份  也就是在关闭项目之前备份