使用VBA找到程序的安装路径
电脑安装程序，一般默认都会在桌面生成快捷方式，但是程序快捷方式太多会造成桌面凌乱。
所以很多时候我们会把快捷方式删除，时间久了，可能都不记得是否安装过了某个程序。
当需要使用某个程序的时候，就一时会找不到。当然一般可以通过电脑的左下角“开始”去找到程序。
这里介绍使用VBA程序来找的方法，一个程序在安装的过程中，一般都会需要管理员权限，这是因为程序的安装一般都要在注册表中写入一些信息，而操作注册表需要管理员权限。
这些写入的信息就包括在安装过程中我们选择的程序安装路径，所以只需要使用VBA去读取相应的注册表信息就可以找到程序的安装路径：
Function GetAppPath(AppName As String)
AppName = VBA.UCase$(AppName)
If VBA.Right$(AppName, 4) <> ".EXE" Then AppName = AppName & ".EXE"
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
On Error Resume Next
GetAppPath = WSH.REGREAD("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\" & AppName & "\Path")
If Err.Number <> 0 Then GetAppPath = "没有找到[" & AppName & "]的安装路径。"
On Error GoTo 0
Set WSH = Nothing
End Function本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2021-03-29，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
腾讯云开发者
