Функция GetShortPathName

Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Платформа: Win 95/98, Win NT

GetShortPathName преобразует длинное имя файла в короткое(8.3) имя. Например,имя файла ReallyLongFile.txt будет преобразовано в REALLY~1.TXT. Короткое имя файла передается в переменную строку lpShortPath. Функция возвращает длину строки, или 0 в случае ошибки.

lpszLongPath
Полный путь и имя файла для преобразования.
lpszShortPath
Строка,содержащая короткое имя файла.
cchBuffer
Размер в символах lpszShortPath.

Пример:

' Преобразуем имя файла  C:\My Documents\ReadMeFirst.txt
Dim shortname As String  ' строка для короткого имени
Dim slength As Long  ' длина короткого имени файла

shortname = Space(255)  ' создаем место в буфере для короткого имени файла
slength = GetShortPathName("C:\My Documents\ReadMeFirst.txt", shortname, 255)
shortname = Left(shortname, slength)  ' извлекаем строку из буфера
Debug.Print "Короткое имя: "; shortname

Схожие функции: GetFullPathName
Категория Файлы
В начало