Функция GetCurrentDirectory

Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, _
    ByVal lpBuffer As String) As Long

GetCurrentDirectory возвращает путь текущего каталога. Текущий каталог - это каталог, где содержится запущенное на выполнение приложение. Соответственно, если вы запускаете проект в среде VB, то текущим будет каталог, где находится VB. Если же вы создадите и запустите автономное приложение (*.exe), то текущим будет уже каталог, где размещается этот файл. Данная функция аналогична встроенной функции Visual Basic CurDir и не обладает дополнительными возможностями

Возвращаемое значение

Функция в успешном случае возвращает длину возвращаемой строки или 0 в случае ошибки (используйте GetLastError для получения кода ошибки)

Параметры

nBufferLength

Размер буфера в байтах, в котором будет содержаться имя текущего каталога

lpBuffer

Строка, содержащая путь к системному каталогу

Пример

' Покажем путь к текущему каталогу
Dim sSave As String
' Создаем буфер
sSave = String(255, 0)
' Получаем имя текущего каталога
GetCurrentDirectory 255, sSave
MsgBox sSave

Смотри также

GetSystemDirectory, GetWindowsDirectory, SetCurrentDirectory

Категория

Системная информация