解压文件代码

 Sub UnRarFile()   /'解压缩程序
  Dim Rarexe As String
  Dim RAR As String
  Dim Myadd As String
  Dim FileString As String
  Dim Result As Long
    Rarexe = "C://program files//winrar//winrar.exe" /'rar程序路径
    myRAR = "D://VB//*.rar"  /'需要解压缩的rar文件,用通配符可以解压所有文件
    Myadd = "D://VB//"     /' 解压后的文件存放路径
    FileString = Rarexe & "  x -AD " & myRAR & " " & Myadd /'rar程序的X命令，-AD为解压到单独目录用来解压缩文件的字符串
    Result = Shell(FileString, vbHide) /'执行解压缩
End Sub