Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, _ ByVal nSize As Long) As Long
GetSystemDirectory возвращает путь системного каталога Windows. В системном каталоге хранятся очень важные файлы, в том числе API *.dll. Этот путь, как правило "C:\Windows\System", но не забывайте, что каталог самой Windows может быть, например, Win98. Путь к системному каталогу содержится в строковой переменной lpBuffer
Функция в успешном случае возвращает длину возвращаемой строки или 0 в случае ошибки
' Показываем путь к системному каталогу Dim sysdir As String ' путь к системному каталогу Dim slength As Long ' длина возвращаемой строки ' Отводим место для получения строки sysdir = Space(255) slength = GetSystemDirectory(sysdir, 255) ' Получаем имя из буфера sysdir = Left(sysdir, slength) MsgBox "Путь системного каталога: "; sysdir