- 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=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
--
谢谢