- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 解压文件报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184883)
-- 发布时间：2023/1/12 18:23:00
-- 解压文件报错
代码如下，麻烦看看哪里出错了，按帮助写的代码啊。
If fl Like "*.zip" Then
zip.Open(fl)
strTZSBH = Vars("gsLinShiWJJ") & "\\" & FileSys.GetName(fl).Replace(".zip", "")
MessageBox.Show(strTZSBH) ’F:\\aaa\\tmp\\106259429
MessageBox.Show(Vars("gsLinShiWJJ")) ’F:\\aaa\\tmp
zip.ExtractAll(Vars("gsLinShiWJJ")) \'报错 详细错误信息：
调用的目标发生了异常。
值不能为 null。
参数名: path2
MessageBox.Show(1)
zip.close
end if
-- 发布时间：2023/1/12 19:50:00
--
zip文件发上来试试
-- 发布时间：2023/1/13 9:53:00
--
附件。单独把代码放在命令窗口都不行？
Dim zip As New ZipFile
Dim fl As String = "E:\\*\\2023010400252650.zip"
zip.Open(fl)
zip.ExtractAll("F:\\*\\tmp")
zip.Close
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:106259429.zip |
-- 发布时间：2023/1/13 10:12:00
--
zip文件本身的问题，我使用360压缩解压后重新压缩一下就可以了。可能这个压缩文件的压缩算法ZipFile函数识别不了
-- 发布时间：2023/1/13 10:17:00
--
我晕，那还有其他的方法么，我这种压缩包还比较多，格式是官方的，我们也不能提要求。
-- 发布时间：2023/1/13 10:21:00
--
调用第三方的组件：https://www.baidu.com/baidu?ie=UTF-8&word=vb.net%20%E8%A7%A3%E5%8E%8B%E7%BC%A9
-- 发布时间：2023/1/13 10:27:00
--
是不是可以调用命令行,通过winrar解压啊？
-- 发布时间：2023/1/13 10:45:00
--
应该是可以的：https://www.baidu.com/s?wd=vb.net%20winrar%20%E5%91%BD%E4%BB%A4%E8%A1%8C
-- 发布时间：2023/1/13 11:26:00
--
用命令行确实可以，不过还得去对方电脑上操作一下，安装winrar，有点烦。
我查了一下，有个ZipPackage好像可以。不过怎么引用这个类，不太清楚了。帮忙指导一下？
-- 发布时间：2023/1/13 11:48:00
--
里面有vb的代码，照抄，加上命名空间就行了