取得应用程序的安装路径

admin

1. Function GetSetupPath(AppName As String)
   
2.      Dim WSH As Object
   * x; [/ i4 I% E! c6 c2 I) m" L) M
3.      Set WSH = CreateObject("Wscript.Shell")
   
4.      GetSetupPath = WSH.RegRead("HKEY_LOCAL_MACHINE\Software" _
   
5.          & "\Microsoft\Windows\CurrentVersion\App Paths" _
   ; o# E# z, |* b0 P  ]* b) ?
6.          & AppName & "\Path")
   
7.      Set WSH = Nothing
   
8. End Function
   
9. Sub WinRARPath()
   
10.      MsgBox GetSetupPath("360Safe.exe")
    % L$ L6 Q7 }' P; d$ Z
11. End Sub
    0 u% Z" ^0 h' l; B

复制代码