Page 1 sur 1
Récupérer le répertoire systeme de windows
Publié:
24 Juil 2005 à 11:46par 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