XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - Root-Verzeichnis zurückgeben
gibt das Rootverzeichnis zurück
Autor Dieter Zornow
free
DEF PathStripToRoot(1) ! SHLWAPI,PathStripToRootA

proc StripToRoot Ergebnis Root

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

endproc

cls
Print StripToRoot(C:\Temp)
waitinput