XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - Pfad auf die angegebene Länge von Zeichen kürzen
Kürzt einen Pfad auf die angegebene Länge von Zeichen
die Länge beinhaltet das abschließende CHR$(0)
Autor:Dieter Zornow
free
DEF PathCompactPathEx(4) ! shlwapi,PathCompactPathExA

proc Fitpath

    parameters pfad$,chars&
    Declare pfad#
    Dim pfad#,261
    PathCompactPathEx(pfad#,addr(pfad$),chars&,0)
    pfad$ = string$(pfad#,0)
    Dispose pfad#
    return pfad$

endproc

cls
Print Fitpath(c:\Eigene Dateien\Meine empfangenen Dateien\Testbild.jpg,50)
waitinput