Функция GetFullPathName

Declare Function GetFullPathName Lib "kernel32" Alias "GetFullPathNameA" (ByVal lpFileName As String, _
    ByVal nBufferLength As Long, _
    ByVal lpBuffer As String, _
    ByVal lpFilePart As String) As Long

GetFullPathName позволяет узнать полный путь к файлу. Функция возвращает 0 в случае ошибки или длину строки в успешном случае.

Параметры

lpFileName

Имя файла

nBufferLength

Размер в символах lpBuffer

lpBuffer

Строка, заполняемая именем файла

lpFilePart

Начальный адрес имени файла. Можно проигнорировать

Пример

' Определяем полное имя файла autoexec.bat
Dim buffer As String  
Dim numchar As Long  ' длина буфера после вызова функции

ChDir "c:\"  ' выбираем папку
buffer = Space(255)  ' создаем место для приема строки
' Помещаем строку в буфер
numchar = GetFullPathName("autoexec.bat", 255, buffer, "") 
buffer = Left(buffer, numchar)  ' извлекаем имя файла
Debug.Print buffer

Смотри ткже

GetShortPathName

Категория

Файлы