XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - letzten Backslash aus Pfadnamen entfernen, falls vorhanden
Entfernt den letzten Backslash aus einem Pfad falls einer da ist
Autor Dieter Zornow
free
DEF PathRemoveBackslash(1) ! SHLWAPI.DLL,PathRemoveBackslashA

proc RemoveBackslash Backslash enfernen

    parameters Pfad$
    Declare Result#,result$
    Dim Result#,261
    string result#,0 = pfad$
    PathRemoveBackslash(result#)
    result$ = string$(result#,0)
    Dispose result#
    return result$

endproc

cls
print RemoveBackslash(C:\Temp)
Waitinput