XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - Dateinamen aus Pfad bestimmen
Holt den Dateinamen aus einem Pfad
Autor Dieter Zornow
free
Def PathFindFileName(1) ! shlwapi,PathFindFileNameA

Proc FindFileName

    parameters pfad$
    Declare file#
    Dim file#,261
    file# = PathFindFileName(addr(pfad$))
    pfad$ = string$(file#,0)
    dispose file#
    return pfad$

endproc

cls
print FindFileName(c:\Eigene Dateien\Telefonnummern.txt)
waitinput