Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Sub Command1_Click() Dim Buffer As String Dim Size As Long Size = GetWindowsDirectory(vbNullString, 0) Buffer = String(Size, " ") Size = GetWindowsDirectory(Buffer, Size) Buffer = Left(Buffer, Size) MsgBox "Répertoire de Windows: " & Buffer End Sub