XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - eckige Klammern mit Nummern im Pfad entfernen
Entfernt eckige Klammern mit Nummer im Pfad
Autor Dieter Zornow
free
DEF PathUndecorate(1) ! shlwapi,PathUndecorateA

Proc CleanPfad

    parameters pfad$
    declare Pfad#,result$
    Dim Pfad#,261
    string pfad#,0 = pfad$
    PathUndecorate(pfad#)
    result$ = string$(pfad#,0)
    dispose pfad#
    return result$

endproc

cls
print CleanPfad(C:\Temp\Test[1].exe)
waitinput