#ifdef __HARBOUR__
   FUNCTION MAIN
#endif

SET DATE GERMAN
SET CENTURY ON
SET COLOR TO

#ifdef __HARBOUR__
   set( _SET_FILECASE, "LOWER")
   set( _SET_DIRCASE,  "LOWER"  )
   //set( _SET_DIRSEPARATOR, "\" )
   set( _SET_TRIMFILENAME,  .T. )
#endif



CLEAR

aKat  := Directory("*.arj")
*aKat  := ASort( aKat,,, { |x,y| x[1] < y[1] } )
a     :=LEN(aKat)
IF a <= 0
   ? "Wychodze - brak plikow *.*"
   RETURN
ENDIF

ccc :=""
ccc2:=""

FOR i:=1 TO a
    ppp:=UPPER(aKat[i,1])
    IF aKat[i,3]=DATE()
       ?  aKat[i,1]
       ?? " "
       ?? aKat[i,2]
       ?? " "
       ?? aKat[i,3]
       ?? " "
       ?? aKat[i,4]
       ccc =aKat[i,1]
       ccc2="f:\!!\"+ccc
       COPY FILE &ccc TO &ccc2
       ?? "******"
    ENDIF
NEXT i

?