| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 压缩包解压问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137615) |
| -- 作者：benwong2013 -- 发布时间：2019/7/10 23:10:00 -- 压缩包解压问题 在10号左右升级了之后，使用以下代码进行下载压缩包进行解压之后会出现以下问题： Can\'t extract entry over parent zip file. 参数名: D:\\SystemDF\\FoxtableDF\\FDlocal\\Attachments\\Attachments.zip Dim ftp1 As new ftpclient ftp1.host="120.***.***.***" ftp1.Account = "******" ftp1.password = "******" ftp1.UTF8 = True If ftp1.Download("\\Attachments.zip",ProjectPath & "Attachments\\Attachments.zip") = True Then Messagebox.show("同步完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Else Messagebox.show("同步失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If Dim zip As New zipFile zip.Open(ProjectPath & "Attachments\\Attachments.zip") zip.ExtractAll(ProjectPath & "Attachments") zip.Close() If FileSys.FileExists(ProjectPath & "Attachments\\Attachments.zip") Then \'如果指定的文件存在 FileSys.DeleteFile(ProjectPath & "Attachments\\Attachments.zip",2,2) \'则彻底删除之 End If |
| -- 作者：有点蓝 -- 发布时间：2019/7/11 9:36:00 -- 错误提示的意思是解压的文件不能覆盖自己。 |