XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - Datei-Erweiterung bestimmen
Gibt die Dateierweiterung zurück
Autor Dieter Zornow
DEF PathFindExtension(1) ! shlwapi,PathFindExtensionA

Proc Findext

    parameters pfad$
    Declare ext#
    Dim ext#,20
    ext# = PathFindExtension(addr(pfad$))
    pfad$ = string$(ext#,0)
    dispose ext#
    return pfad$

endproc

cls
print Findext(c:\Eigene Dateien\Telefonnummern.html)