取得应用程序的安装路径

admin · 发表于 2020-4-6 11:25:33

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

x

Function GetSetupPath(AppName As String)7 a& |! i( @- a
Dim WSH As Object
: w+ W0 ]# ?0 S( n2 k6 J( E
Set WSH = CreateObject("Wscript.Shell")$ m) ]4 c; c5 B! B- O
GetSetupPath = WSH.RegRead("HKEY_LOCAL_MACHINE\Software" _6 |( m7 p* K1 y4 t8 h9 R
& "\Microsoft\Windows\CurrentVersion\App Paths" _
6 h; U7 {! k7 ^9 z/ s$ o' d( X
& AppName & "\Path")
* }: Z& w# \5 z! w0 U& Z
Set WSH = Nothing
9 z- e7 \3 p% e% D$ @
End Function
% O7 J* Z* {( n) Y# H2 E
Sub WinRARPath()
( V$ @2 m' Z' o. |) p3 _
MsgBox GetSetupPath("360Safe.exe")
) a, \. R9 q' Y( G1 f$ M
End Sub, d/ ^6 O6 `2 }2 z9 N

复制代码

		自动登录	找回密码
密码			注册

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