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
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