' benötigte API-Deklaration
Private Declare Function PathCompactPath Lib "shlwapi" _
  Alias "PathCompactPathA" ( _
  ByVal hDC As Long, _
  ByVal lpszPath As String, _
  ByVal dx As Long) As Long

Dim strPath As String
Dim dx As Long
 
strPath = CommonDialog1.Filename
 
' Breite der TextBox in Pixel
dx = Text1.Width / Screen.TwipsPerPixelX
 
' API-Funktion aufrufen, um Pfad ggf. zu kürzen
PathCompactPath Me.hDC, strPath, dx
Text1.Caption = strPath

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de