break ON
DEBUG ON
? "                    Copyright (C) 2005 by Andreas Werner"
? " "
? " Bitte geben sie dein Path ein in dem sie suchen wollen:"
? gets $Path
if $Path = ""
   goto end
else
$DATE = @date + " 00:00:00"
$DATE1 = @date + " 12:00:00"
$FileName = Dir("$Path")
$FileName2
? $DATE
? $DATE1
WHILE $FileName <> "" and @ERROR = 0
? $FileName2 = $Path + $FileName
? $FileTime = GETFILETIME($FileName2)
? $FileName
? $FileTime
IF $FileTime >= $DATE AND <= $DATE1
? "richtig"
ELSE
? "falsch"
ENDIF
$FileName = Dir() ; retrieve next file
Loop
? $Falsch
? $richtig
:end
return