vba 7z 解压文件程序

catmao666

vba 7z压缩文件程序已经成功运行，可为什么就不能运行下列解压文件的程序呢？
如下：
Dim rarexe As String
    Dim source As String
    Dim target As String
    Dim filestring As String
    Dim result As String
rarexe = "C:\Program Files\7-Zip\7z.exe"
   source = """C:\Documents and Settings\Administrator\桌面\行列交叉值条件查询\2.zip"""
   
   target = """C:\Documents and Settings\Administrator\桌面\行列交叉值条件查询\2\"""
   filestring = rarexe & " x " & source & "  " & target
  result = Shell(filestring, vbHide)
运行后，什么错误信息也不提示，压缩文件也得不到解压，请高手帮忙看看，这是为什么呢？我也试过用winrar.exe,它可成功进行解压，可换成7z.exe就不可以了呢？不过winrar.exe 也只能解压.rar文件，也不可解压.zip压缩文件，这到底有什么秘诀呢？请高手不吝赐教！谢谢了！
   

guojianlin1985

参数错了吧。

catmao666

guojianlin1985 发表于 2011-10-17 21:58
参数错了吧。

什么参数错了？我只是将运行成功的压缩程序稍作改动，换成winrar.exe也可实现解压，为什么偏偏7z不行呢？

guojianlin1985

7z的解压缩参数你看了吗，准确无误吗。最好在cmd环境下测试看看效果。

catmao666

guojianlin1985 发表于 2011-10-18 15:46
7z的解压缩参数你看了吗，准确无误吗。最好在cmd环境下测试看看效果。

难道7z 解压缩命令不与winrar一样吗？在cmd环境下测试？
不会啊？能不能教一下？谢谢呢！

catmao666

vba 7z压缩文件程序已经成功运行，可为什么就不能运行下列解压文件的程序呢？ 如下： Dim rarexe As String     Dim source As String     Dim target As String     Dim filestring As String     Dim result As String rarexe = "C:\Program Files\7-Zip\7z.exe"    source = """C:\Documents and Settings\Administrator\桌面\行列交叉值条件查询\2.zip"""        target = """C:\Documents and Settings\Administrator\桌面\行列交叉值条件查询\2\"""    filestring = rarexe & " x " & source & "  " & target   result = Shell(filestring, vbHide) 运行后，什么错误信息也不提示，压缩文件也得不到解压，请高手帮忙看看，这是为什么呢？我也试过用winrar.exe,它可成功进行解压，可换成7z.exe就不可以了呢？不过winrar.exe 也只能解压.rar文件，也不可解压.zip压缩文件，这到底有什么秘诀呢？请高手不吝赐教！谢谢了！

liucqa

我也想知道     

catmao666

liucqa 发表于 2011-10-19 21:22
我也想知道

怎么没人帮我们解答呢？求高手不吝赐教！

Moneky

命令行写错了
正确的应该是这样：
filestring = rarexe & " x " & source & "  -o" & target

xyxystar

我也遇到这个问题！7z的参数与winrar不一样！试试看这样可以吗？
Dim rarexe As String
    Dim source As String
    Dim target As String
    Dim filestring As String
    Dim result As String
rarexe = "C:\Program Files\7-Zip\7z.exe"
   source = """C:\Documents and Settings\Administrator\桌面\行列交叉值条件查询\2.zip"""
     target = """C:\Documents and Settings\Administrator\桌面\行列交叉值条件查询\2\"""
   filestring = rarexe & " x " & source & "  -o" & target
  result = Shell(filestring, vbHide)
但是我遇到的问题是有时可以运行，有时不能运行！