'WINRAR安装路径 Sub GetWINRARPath() Dim WSH As Object Set WSH = CreateObject("Wscript.Shell") MsgBox "WINRAR安装路径:" & WSH.RegRead("HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/App Paths/winrar.EXE/Path") End Sub 'EXCEL安装路径 Sub GetEXCELPath() Dim WSH As Object Set WSH = CreateObject("Wscript.Shell") MsgBox "EXCEL安装路径:" & WSH.RegRead("HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/App Paths/EXCEL.EXE/Path") End Sub
获取EXE文件安装后的路径
最新推荐文章于 2019-11-07 02:23:49 发布