XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - eventuelle Datei-Erweiterung entfernen
Entfernt eine eventuelle Dateierweiterung
Autor Dieter Zornow
free
DEF PathRemoveExtension(1) ! SHLWAPI,PathRemoveExtensionA

proc removeExt entfernt Fileendung

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

endproc

cls
Print removeExt(C:\Temp\test.html)
waitinput