首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >使用VBA找到程序的安装路径

使用VBA找到程序的安装路径

作者头像
xyj
发布2021-04-07 20:35:56
1.7K0
发布2021-04-07 20:35:56
举报
文章被收录于专栏:VBA 学习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 删除

本文分享自 VBA 学习 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体分享计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档