在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
加好友 
发短信
Post By：2019/7/10 23:10:00 [显示全部帖子]
