Pronalazenje putanje Program Files

Code:
Public Const max_path = 260
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
 (ByVal lpbuffer As String, ByVal nsize As Long) As Long
Public Function WinDir_func() As String
  Dim lpbuffer As String
  Dim windir As String
  lpbuffer = Space$(max_path)
  WinDir_func = Left$(lpbuffer, GetWindowsDirectory(lpbuffer, max_path)) 
' save default windows path in this variable :)
End Function

Code:

Shell ("%ProgramFiles%\intenet explorer\iexplore.exe")

Code:

Dim Registri
Dim strKeyValue As String
Dim strHDD As String

Set Registri = New clsReg
    Registri.hkey = &H80000002
    Registri.KeyRoot = "SOFTWARE"
    Registri.Subkey = "Microsoft\Windows\CurrentVersion"
    
        strKeyValue = Registri.GetRegistryValue("ProgramFilesDir")
       
         strHDD = Left(strKeyValue, 3)
         
 Set Registri = Nothing

Code:

Option Explicit

Private Declare Function SHGetSpecialFolderPath _
   Lib "shell32.dll" _
   Alias "SHGetSpecialFolderPathA" _
   (ByVal hWnd As Long, _
   ByVal lpszPath As String, _
   ByVal nFolder As Integer, _
   ByVal fCreate As Boolean) As Boolean

Private Const CSIDL_PROGRAM_FILES = &H26


Private Sub Form_Load()
 Dim blnReturn As Long
   Dim strBuffer As String
   strBuffer = Space(255)
   blnReturn = SHGetSpecialFolderPath(0, _
      strBuffer, _
      CSIDL_PROGRAM_FILES, _
      False)
      
   strBuffer = Left(strBuffer, InStr(strBuffer, Chr(0)) - 1)
   MsgBox strBuffer
End Sub

Code:

%ProgramFiles%

Code:


Dim EnvString, Indx, Msg, PathLen   ' Declare variables.
Indx = 1   ' Initialize index to 1.
Do
   EnvString = Environ(Indx)   ' Get environment 
            ' variable.
   If Left(EnvString, 5) = "PATH=" Then   ' Check PATH entry.
      PathLen = Len(Environ("PATH"))   ' Get length.
      Msg = "PATH entry = " & Indx & " and length = " & PathLen
      Exit Do
   Else
      Indx = Indx + 1   ' Not PATH entry,
   End If   ' so increment.
Loop Until EnvString = ""
If PathLen > 0 Then
   MsgBox Msg   ' Display message.
Else
   MsgBox "No PATH environment variable exists."
End If