All pastes #966464 Raw Edit

windir

public text v1 · immutable
·published 2008-04-01 19:24 UTC
rendered paste body
Attribute VB_Name = "Windir"

' API pour la rcupration rpertoire Windows,
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Function PRGetRepertoireWindows() As String
    Dim WindowsDir As String * 255
    Dim Longueur As Integer
    ' rcupration du rpertoire d'installation de Windows par API
    Longueur = GetWindowsDirectory(WindowsDir, Len(WindowsDir))
    PRGetRepertoireWindows = Left(WindowsDir, Longueur)
End Function