XProfan

DEF @PathRemoveFileSpec(1) !"shlwapi","PathRemoveFileSpecA"
WindowTitle "Dateinamen von Pfad trennen"
Windowstyle 31+512
Window 0,0-640,440
Declare EingabeDatei$,Pfad#
Let EingabeDatei$="C:"
Dim Pfad#,513

While EingabeDatei$<>""

    let EingabeDatei$=@LoadFile$("Bitte Datei auswählen","*.*")
    String Pfad#,0=EingabeDatei$
    @PathRemoveFileSpec(Pfad#)
    Print @String$(Pfad#,0)