好不容易从网上下了个UnRar，代码如下，可它只能解压文件，可我的压缩包里是个文件夹套文件夹然后才是文件（压缩包—第一层文件夹—第二层文件夹—文件），这个代码该怎么改呀，请高手赐教，谢谢。
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Option Explicit

Private Sub Command1_Click()
List1.Clear
If fso.FileExists(Text1.Text) = False Then
MsgBox "File doesn't exist !"
Exit Sub
End If
If Option1(0).Value = True Then
UnRar1.Lister Text1.Text
Else
UnRar1.Decompress Text1.Text, Foldr
End If
End Sub

Private Sub Command2_Click()
ShellExecute Me.hWnd, "Open", "mailto:leturk@netcoier.com", "", "", 1
End Sub

Private Sub Option1_Click(Index As Integer)
If Index = 1 Then Foldr = InputBox("Please enter the folder to Decompress in :", , "c:\windows\temp")
End Sub

Private Sub UnRar1_Progression(Pourcent As Integer)
ProgressBar1.Value = Pourcent
End Sub

Private Sub UnRar1_RarFileChange(FichierEnCours As UnRarOCX.RarFile)
List1.AddItem FichierEnCours.NomFichier
End Sub

不用这么麻烦 你可以看看WINRAR的帮助文件 用命令行的方式 实现压缩和解压缩 直接用一个SHELL函数就可以了`

PS：现在我才发现，这种方法也可以用于操作注册表

用于 REGEDIT.EXE 语法
REGEDIT [/v|-v] [/s|-s] <FILENAME>

<FILENAME>
这是 .REG - 格式文件, 其中可生成与保存注册文件命令是 REGEDIT.EXE 以高级模式 " 文件 " 菜单中。
回到顶端

[ ] v| - v /
此开关在高级注册数据库位置显示树状结构 （类似于 Windows 3.1 文件管理器中树窗口） 模式, 打开 REGEDIT.EXE。 可编辑数据库的任何部分。
回到顶端

[ ] s| - > /
命令行上指定文件名时此开关用于取消信息性， 通常会显示任何对话框。 当安装程序为应用程序希望执行带有 .REG 文件, REGEDIT.EXE 但不希望用户能够通过显示任何对话框会混淆则有用。
回到顶端

用于开关语法
或者或 "-" 可用于表示可选开关 "/"。 交换机 （例如, - 与） 可结合和被键入或者大写或小写。 忽略无法识别的开关。

解压缩可以shell "winrar -e 压缩包文件名和地址 解压目标地址"
这样试试,前提是你安装有winrar