'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文件安装后的路径
最新推荐文章于 2025-02-11 00:30:36 发布
本文介绍了一种使用VBS脚本获取WinRAR及Excel安装路径的方法。通过读取注册表信息，可以准确地找到这些应用程序的具体安装位置。
扫一扫
6819
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
