'调用winrar执行文件路径
Public Function GetRarPath() As String
Dim Reg = Registry.ClassesRoot.OpenSubKey("Applications\WinRAR.exe\Shell\Open\Command") '打开指定的子键
Dim Obj = Reg.GetValue("") '获取键值
Dim Rar = Obj.ToString()
Reg.Close()
Return Rar.Substring(1, Rar.Length - 7)
End Function
'通过Shell调用winrar指令集
Shell(GetRarPath() & " " & "X -o+" & " " & FilePath & " " & "*.txt" & " " & WorkingDirectory, vbHide, True)
'注: X 指winrar解压缩指令
-o+ 指覆盖原文件
FilePath 指文件夹路径
*.txt 指解压缩rar文件中指定类型的文件
WorkingDirectory 指解压缩保存的路径
True 指等待shell响应完成后才进行下一步操作