CUT_FNAM.LST

> PROCEDURE filename(datei$,VAR match$)
'
' Extrahiert einen Dateinamen
'
LOCAL match&
match&=SUCC(RINSTR(datei$,"\"))
IF match&>0
  match$=MID$(datei$,match&)
ELSE
  CLR match$
ENDIF
RETURN
> PROCEDURE pfad(datei$,VAR match$)
'
' Extrahiert einen Pfad
'
LOCAL match&
match&=RINSTR(datei$,"\")
IF match&>0
match$=LEFT$(datei$,match&)
ELSE
CLR match$
ENDIF
RETURN