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
 

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 <> ""
	$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 $FileTime <= $DATE1
			? "richtig"
		ELSE
			? "falsch"
		ENDIF
		$FileName = Dir() ; retrieve next file
	Loop
	? $Falsch
	? $richtig
EndIf
return