以文本方式查看主题

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

--  作者:江南小镇
--  发布时间:2018/10/26 21:35:00
--  [求助]备份
老师,下面代码只能备份1次第二次备份报错。


If FileSys.FileExists("F:\\备份.zip") Then \'如果指定的文件存在
    FileSys.DeleteFile("F\\备份.zip",2,2) \'则彻底删除之
    Dim zip As New zipFile
    zip.Create("F:\\备份.zip")
    zip.AddFolder( ProjectPath)
    zip.Close()
    MessageBox.Show("备份完毕!","提示!")
Else
    Dim zip As New zipFile
    zip.Create("F:\\备份.zip")
    zip.AddFolder( ProjectPath)
    zip.Close()
    MessageBox.Show("备份完毕!","提示!")
End If



图片点击可在新窗口打开查看此主题相关图片如下:备份.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2018/10/26 21:45:00
--  
If FileSys.FileExists("F:\\备份.zip") Then \'如果指定的文件存在
    FileSys.DeleteFile("F:\\备份.zip",2,2) \'则彻底删除之
End If
Dim zip As New zipFile
zip.Create("F:\\备份.zip")
zip.AddFolder( ProjectPath)
zip.Close()
MessageBox.Show("备份完毕!","提示!")

--  作者:江南小镇
--  发布时间:2018/10/26 22:49:00
--  
谢谢