XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - BackSlash an Pfad anhängen, wenn keiner existiert
Hängt einen Backslash an einen Pfad, wenn keiner existiert
Der Pfad wird nicht geprüft
Autor: Dieter Zornow
free
DEF PathAddBackslash(1) ! shlwapi,PathAddBackslashA

Proc AddBackslash

    parameters pfad$
    declare pfad#,result$
    Dim pfad#,len(pfad$)+1
    string pfad#,0 = pfad$
    PathAddBackslash(pfad#)
    result$ = string$(pfad#,0)
    Dispose pfad#
    return result$

endproc

cls
Print AddBackslash(C:TEMP)
waitinput