XProfan

declare name$

proc DataName

    parameters tdatei$
    declare te% , tteil$
    te% = 1

    repeat

        tteil$=SubStr$(tdatei$,te%,"\")
        inc te%

    until (SubStr$(tdatei$,te%,"\") = "")

    return tteil$

endproc

proc open

    parameters ppfad$

    if ppfad$ <> ""

        name$ = DataName(ppfad$)

    endif

endproc

cls
open LoadFile$("Öffne ...","Alle Dateien|*.*")
end

declarar name$

proc DataName

    parámetros tdatei$
    declarar te% , tteil$
    te% = 1

    repeat

        tteil$=Substr$(tdatei$,te%,"\")
        inc te%

    until (Substr$(tdatei$,te%,"\") = "")

    volver tteil$

ENDPROC

proc open

    parámetros ppfad$

    if ppfad$ <> ""

        name$ = DataName($(1))

    endif

ENDPROC

cls
open LoadFile$("Öffne ...","Alle Dateien|*.*")
end