Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _ ByVal nSize As Long) As Long
GetWindowsDirectory возвращает путь к папке Windows. Обычно, это "C:\Windows", но может быть, например "D:\win98". Путь передается в строковую переменную lpBuffer
Функция в успешном случае возвращает длину возвращаемой строки или 0 в случае ошибки
' Показывем путь папки Windows Dim windir As String ' путь папки Windows Dim slength As Long ' длина возвращаемой строки windir = Space(255) ' отводим место для получения строки в буфере slength = GetWindowsDirectory(windir, 255) ' узнаем путь папки windir = Left(windir, slength) ' получаем имя из буфера Debug.Print "Папки Windows: "; windir