XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - Pfad in Anführungszeichen setzen, wenn Leerzeichen enthalten sind
Sind in einem Pfad Leerzeichen wird er in Anführungszeichen gesetzt
Autor Dieter Zornow
free
DEF PathQuoteSpaces(1) ! SHLWAPI.DLL,PathQuoteSpacesA

proc QuoteSpaces setzt Pfad in Anführungszeichen

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

endproc

cls
print QuoteSpaces(c:\Temp\ find)
waitinput