XProfan

SplitFilename  (Test-Schnipsel)
Ab XProfan 10

Proc SplitFilename

    Parameters Vollname$
    Declare Laufwerk$, Pfad$, Datei$, Extension$
    Laufwerk$ = Match$(.:,Vollname$)
    Pfad$ = Match$(~.{0,2}\(.*\)?,Vollname$)
    Datei$ = SubStr$(Vollname$,-1,If(InStr(\,Vollname$),\,:))
    Extension$ = If(InStr(.,Datei$),SubStr$(Datei$,-1,.),)
    AddString Voller Dateiname: q + Vollname$ + q
    AddString Laufwerk + MkStr$(.,8) + : q + Laufwerk$ + q
    AddString Pfad + MkStr$(.,12) + : q + Pfad$ + q
    AddString Dateiname + MkStr$(.,7) + : q + Datei$ + q
    AddString Extension + MkStr$(.,7) + : q + Extension$ + q
    AddString

EndProc

ClearList
SplitFilename C:
SplitFilename Datei
SplitFilename Datei.
SplitFilename C:Datei.ext
SplitFilename C:Datei.ext
SplitFilename C:TestDatei
SplitFilename C:Test.$$$Datei.ext
SplitFilename C:Test.$$$Datei.
SplitFilename C:Test.$$$Datei
SplitFilename .Text.$$$
SplitFilename ....von weiter vorndatei.ext
ListBox$(die Ergebnisse,2)
VVV damit habe ich mal schnell die Ergebnisse abgegriffen
Declare s$,B#
Dim B#,50000
MoveListToMem(B#,
)
BlockWrite C:\Test_Splitfilename.txt,B#,0,Len(String$(B#,0))
Dispose B#
ShellExec(C:\Test_Splitfilename.txt,open,1)
End

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)

wend