'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文件安装后的路径
最新推荐文章于 2024-06-06 10:14:09 发布
本文介绍了一种使用VBS脚本获取WinRAR及Excel安装路径的方法。通过读取注册表信息,可以准确地找到这些应用程序的具体安装位置。
6951

被折叠的 条评论
为什么被折叠?



