利用Winrar自动覆盖解压缩

'调用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响应完成后才进行下一步操作