Путь файла

[SerJay]

Ребята подскажите,такая проблема: диалогом OPEN выбираю файл,
его путь записывается в textbox,но если путь к файлу длинный то
TEXTBOXа не "хватает".Как сделать чтоб textbox показывал начало
пути и конец а середину срезал.Заранее благодарю

[GSerg]

left$ & "..." & right$

[Andrey Fedorov]

Ребята подскажите,такая проблема: диалогом OPEN выбираю файл,
его путь записывается в textbox,но если путь к файлу длинный то
TEXTBOXа не "хватает".Как сделать чтоб textbox показывал начало
пути и конец а середину срезал.Заранее благодарю

Выводи его не в TextBox (тебе-ж его редактировать при этом не надо), а в Lebel функцией DrawText - посмотри у нее ключики DT_PATH_ELLIPSIS и с ним связанные...

[tyomitch]

Мой лейбл так уже умеет.
http://vbrussian.com/Controls.asp?ID=100

[SerJay]

Вот нашел функцию

Function LongDirFix$(Incoming%, Max%)
Dim i%, LblLen%, StringLen%, TempString$
TempString$ = Incoming$
If Len(TempString$) <= Max% Then
LongDirFix$ = TempString$: Exit Function
End If
LblLen% = Max% - 6
For i% = Len(TempString$) - LblLen% To Len(TempString$)
If Mid$(TempString$, i%, 1) = "\" Then Exit For
Next
LongDirFix% = Left$(TempString$, 3) + "..." + _
Right$(TempString$, Len(TempString$) - (i% - 1))
End Function

Не могу разобраться,выдаёт ошибку run-time error '13'
Вызваю вот так
Text1.Text = LongDirFix$(Text1.Text, 20)
Text1.Text=путь файла
Подскажите что я делаю не так

[hCORe]

Incoming$ в объявлении функции поставь...