Pfad kürzen

''' <summary>
''' Diese Funktion kürzt einen Pfad ab so das aus
''' "C:WindowsSystem32TestTest.dll" dann "C:Windows...Test.dll" wird
''' </summary>
''' <param name="Path">Der Pfad der gekürzt zurückgegeben werden soll</param>
''' <param name="Length">Die gewünschte Länge die nicht überschritten werden darf</param>
''' <param name="TextFont">Die Schriftart die angewendet wird</param>
Public Function PathShorten(ByVal Path As String, ByVal Length As Integer, ByVal TextFont As Font) As String
    Dim PathParts() As String = Split(Path, "")

Alte URL: /snippet/pfad-kuerzen/276