以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  解压的问题请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88070)

--  作者:ljh29206
--  发布时间:2016/7/26 14:33:00
--  解压的问题请教

请帮忙试下 这个文件  我按帮助解压不出来

 

 

        dim fl as string  =  "相关路径"

        Dim zip As New zipFile
        zip.Open(fl)
        Output.Show (zip.Count)
        zip.ExtractAll("d:")

        zip.Close

 

能够探测到 有2个文件, 但是就是不能释放出来

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:242415kb021607220041.zip

请帮忙测试一下

 

直接使用 zip 的解压是没问题的

[此贴子已经被作者于2016/7/26 14:37:52编辑过]

--  作者:大红袍
--  发布时间:2016/7/26 15:09:00
--  

你的zip应该有问题,得到的文件名,是这样的 \\242415KB021607220041.pdf

 

这样,就会默认把其放到C盘的根目录下的。

 

Dim fl As String  =  "C:\\Users\\dv rrxaI600 007\\Downloads\\242415kb021607220041.zip"

Dim zip As New zipFile
zip.Open(fl)
For Each File As String In zip.Files
    Output.Show(File)
    zip.Extract(file, "d:\\" & file)
Next

zip.Close


--  作者:ljh29206
--  发布时间:2016/7/26 15:30:00
--  

明白了,谢谢