Récupérer le répertoire systeme de windows

[Michael DELIQUE]

Code : Tout sélectionner

Declare Public Function GetWinSys Lib "kernel32" Alias "GetSystemDirectoryA" (Byval lpBuffer As String, Byval nSize As Long) As Long

Function SystemDirectory As String     
   Dim Result
   Dim sysDir As String
   sysDir = Space(144)
   Result = GetWinSys(sysDir, 144)     
   If Result = 0 Then
      SystemDirectory = "C:\"
   Else
      SystemDirectory = Left(Trim(sysDir),Len(Trim(sysDir))-1) & "\"
   End If     
End Function