Eine kleine Funktion, die zu lange Pfade und Dateinamen optisch kürzt. Wenn sie diese Funktion für ein Menü (Recent Filelist) verwenden, können sie den gekürzten Menüeintrag nicht mehr verwerten (er ist ungültig geworden). Deshalb empfiehlt es sich, die TAG-eigenschaft für das Click-ereignis zu verwenden.
Der Vorteil dieser Funktion liegt gegenüber den API-Funktionen darin, dass der Laufwerksbuchstabe immer vollständig und korrekt angezeigt wird. "PathCompactPathEx" schneidet zB bereits den Doppelpunkt ab. Aus "D:\Langer Text.txt" wird bei maximaler Länge von 13 Zeichen "D...\Text.txt". Diese Funktion gibt aber "D:\...ext.txt" zurück.
Benötigt werden eine Form und ein Label ("Label1")

Option Explicit

Private Function CompactPath(ByVal Path As String, ByVal MaxChars As Long)

    If Len(Path) > MaxChars Then
        CompactPath = Mid(Path, 1, 3) & "..." & Right(Path, MaxChars - 6)
    Else
        CompactPath = Path
    End If
    
End Function

Private Sub Form_Load()

Dim Datei As String

    Datei = "D:\Programme\Beliebiges Programm\Langer " & _
    "Dateiname der gekuerzt wird.dat"
    Label1.Caption = CompactPath(Datei, 40)
    
End Sub