主题：解压的问题请教

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

 

 

        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 的解压是没问题的

你的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

明白了，谢谢