Smarte Methode zum Dateipfad kürzen gesucht

[Pelagio]

Guten Morgen,

ich habe mich auch schon seid längerem damit, gedanklich, beschäftigt den Pfad kleiner aber auch lesbar sichtbar zu machen.
Dank Eurer Innovation habe ich mich jetzt hingesetzt und ein entsprechendes Tool erstellt, jedenfalls eines welches ich gebrauchen kann.

Code: Alles auswählen

Procedure.s GetParentPath(vPath.s, vLen.i = 16)
	Protected n.i, pLen.i, pLast.s
	Protected pMax.i = CountString(vPath, #PS$) + 1
	Protected Dim pValue.s(pMax)

	For n = 1 To pMax
		pValue(n) = StringField(vPath, n, #PS$)
	Next n
	pLen = Len(pValue(pMax))
	If (vLen>pLen)
		vPath = #Null$
		For n = 1 To (pMax-1)
			If ((Len(vPath)+pLen)>vLen)
				vPath + "..." + #PS$
			Else
				vPath + pValue(n) + #PS$
			EndIf
		Next n
		vPath + pValue(pMax)
	EndIf
	ProcedureReturn vPath
EndProcedure


Debug GetParentPath("D:\1\Obst\Äpfel\Reife\Greenstar.exe")
Debug GetParentPath("D:\1\Obst\Äpfel\Reife\Greenstar\")
Debug GetParentPath("D:\1\Obst\Äpfel\Reife\Greenstar")

End