FAQ
Système
Public Declare Function GetSystemDirectory Lib "kernel32" _
Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Const MAX_PATH = 260
Function GetSysPath() As String
Dim buff As String
Dim ret As Long
buff = Space$(MAX_PATH)
ret = GetSystemDirectory(buff, MAX_PATH)
GetSysPath = Left$(buff, ret) & ""
End Function