Question

VB 调用rar生成压缩文件有很多子目录是怎么回事？

就是我用VB调用rar 压缩文件，生成压缩文件后发现打开后要点击很多层文件夹才能看到我压缩的文件，是怎么回事？请加我企鹅 二八一九55九23

Answer 1

 Imports System
Imports System.IO
Imports System.IO.Compression
Imports System.Threading

Public Class Form1
   Dim cWinRarEXE As String = "C:\Program Files\WINRAR\WinRar.exe"      'WinRar.exe文件所在位置
    Dim cSoureFile As String = "D:\Setup1\zerodemo.avi"                 '要压缩的源文件位置及文件名
    Dim cWinRarFile As String = "D:\Setup1\zerodemo.rar"                 '压缩到的文件位置及文件名

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      Dim Process1 As System.Diagnostics.Process = New System.Diagnostics.Process()

      Process1.StartInfo.FileName = cWinRarEXE
      Process1.StartInfo.Arguments = " a -o+ -ep -hpexetop85510088 -inul " & cWinRarFile & " " & cSoureFile       '调用Rar.exe命令行参数
      Process1.Start()                                                                '压缩开始
      Do While Not Process1.HasExited     '等待压缩的完成 
      Loop

      MsgBox("压缩完成！", MsgBoxStyle.Information, "消息")

   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      Dim Process1 As System.Diagnostics.Process = New System.Diagnostics.Process()

      Process1.StartInfo.FileName = cWinRarEXE
      Process1.StartInfo.Arguments = " e -t -o+ -hpexetop85510088 -inul " & cWinRarFile & "  C:\testdir"        '调用Rar.exe命令行参数
      Process1.Start()                                         '解压缩开始
      Do While Not Process1.HasExited     '等待解压缩的完成 
      Loop

      MsgBox("解压缩完成！", MsgBoxStyle.Information, "消息")
   End Sub
End Class

追问

我发现你这段代码有不少我能利用的，请问关键是 -ep指令吗？

Answer 2

你把调用的语句贴出来

追问

Shell .RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\winrar.EXE\Path") & "\WinRAR.exe a -r- """ & t & """ """ & s & """", vbHide