Функция PathCompactPath

Declare Function PathCompactPath Lib "shlwapi" Alias "PathCompactPathA" (ByVal hDC As Long, ByVal lpszPath As String, ByVal dx As Long) As Long
PathCompactPath уплотняет длинные имена файлов, заменяя часть имени пути точками (...)

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

В случае успеха функция возвращает True, в противном случае возвращается False

Параметры

hDC
Дескриптор контекста устройства
lpszPath
Имя файла для модификации. При успешном завершении содержит изменненую строку
dx
Ширина в пикселах ячейки, в котором будет содержаться имя файла

Пример

' Сжимаем длинное имя файла
' Поместите на форму метку Label1
Dim lhDC As Long ' дескриптор устройства
Dim FileSpec As String ' имя файла

FileSpec = "C:\VisualBasic\Русский_Проект\sample.txt"
Label1.AutoSize = True
lhDC = Me.hDC
PathCompactPath lhDC, FileSpec, 90
Label1.Caption = FileSpec

Категория

Shlwapi