设为首页收藏本站

切换到宽版

《新大榭》- 创大榭地方网络社区先锋品牌 新大榭始终专注于地方网络社区平台的建设 关于我们- [大记事]- 留言建议- [新手报道]

发布 .新大榭软件管家（Excel版） V6.0版 财务/仓库/生产/销售/采购/行政/人事/校园 .公告 - 客户 - 打赏 - 职场 - Excel - Python.

新大榭镜像-搜音乐-法律库-图书馆-高中课堂-实验室 广告是为了能更好的发展 [欢迎商家支持本站互利共赢] 广告位招租.首页黄金广告位等您来！联系 13566035181

新大榭论坛»论坛 › 技术服务 › 办公模板 › Excel特训营 › 取得应用程序的安装路径

发新帖

查看: 902|回复: 0

[Excel课程] 取得应用程序的安装路径

发表于 2020-4-6 11:25:33 | 显示全部楼层 |阅读模式

马上注册，结交更多好友，享用更多功能，让你轻松玩转新大榭论坛！

您需要登录才可以下载或查看，没有账号？注册

x

Function GetSetupPath(AppName As String)& A$ m! F1 y5 y- i
Dim WSH As Object
6 c: S! D9 J7 N# M
Set WSH = CreateObject("Wscript.Shell")
6 a# G4 B7 x/ T( O& ^% N. [$ q7 g
GetSetupPath = WSH.RegRead("HKEY_LOCAL_MACHINE\Software" _6 S% h9 K/ A# D- P" |
& "\Microsoft\Windows\CurrentVersion\App Paths" _
- O! t% s! M( D8 E/ j" M+ d
& AppName & "\Path")' ]: \8 G& s0 g9 r h
Set WSH = Nothing
# v8 H: d! \& e# [2 @# \
End Function
! h0 c) E5 S* g7 M/ P. ]+ Y
Sub WinRARPath()
% f: q( a$ \6 O
MsgBox GetSetupPath("360Safe.exe")) a5 D) ?5 h( R- r
End Sub
- A9 y1 ~- m/ q( \' A

复制代码

新大榭Python学习社区培训、Excel业务指导、办公软件定制、网站建设；新大榭探索实验室欢迎您！http://lab.daxie.net.cn/

Q群推荐大榭本地求职招聘QQ群，欢迎转发分享本地招聘信息资讯! 官方招聘1群（已满）；官方招聘2群：315816937 *

回复

使用道具举报

发新帖

文字版|小黑屋|新大榭 ( 浙ICP备16018253号-1 )||

GMT+8, 2026-4-13 11:11 , Processed in 0.077824 second(s), 20 queries , Gzip On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表