取得应用程序的安装路径

admin

1. Function GetSetupPath(AppName As String)
   
2.      Dim WSH As Object
   
3.      Set WSH = CreateObject("Wscript.Shell")
   
4.      GetSetupPath = WSH.RegRead("HKEY_LOCAL_MACHINE\Software" _
   
5.          & "\Microsoft\Windows\CurrentVersion\App Paths" _
   2 y' ^, E4 ~7 P+ o
6.          & AppName & "\Path")
   5 h+ w2 Y+ e0 p' k/ M5 I/ s* F4 W8 u  o
7.      Set WSH = Nothing
   0 f. _) q) N, }. ?0 u6 {# I
8. End Function
   ! F4 Y% X! e5 Y+ ]8 \, i! `! {
9. Sub WinRARPath()
   3 Z& `) O* s+ @4 Z* H+ z
10.      MsgBox GetSetupPath("360Safe.exe")
    
11. End Sub
    

复制代码