<code>Dim I As Integer
Dim strOrdner As String
Dim intMaxLen As Integer
Dim arrOrdner() As String
Dim intUbound As Integer
 
intMaxLen = 30
 
If Len(Text1.Text) >= intMaxLen Then
  arrOrdner = Split(Text1.Text, "\")
  intUbound = UBound(arrOrdner)
 
  <font color=green>' Letzten Ordner immer vollständig anzeigen</font>
  intMaxLen = intMaxLen - Len(arrOrdner(intUbound))
 
  <font color=green>' jetzt noch 3 Zeichen für .. abziehen</font>
  intMaxLen = intMaxLen - 3
 
  I = 1
  strOrdner = arrOrdner(0) & "\"
  Do While I < intUbound - 1
    If Len(strOrdner) + Len(arrOrdner(I)) + 1 > intMaxLen Then Exit Do
    strOrdner = strOrdner & arrOrdner(I) & "\"
    I = I + 1
  Loop
  Text2.Text = strOrdner & "..\" & arrOrdner(intUbound)
Else
  Text2.Text = Text1.Text
End If</code>