$PATH = "c:\test"
$TODAY = Split(@DATE,"/",)
$TODAY = Join($TODAY,"",)
$Files = Dir("$PATH\*.txt")
While $Files <> "" and @ERROR = 0
	$TODAYSFILE = InStr($Files,$TODAY)
	If $TODAYSFILE = 0
		Del "$PATH\$Files"
	EndIf
	$Files = Dir()
Loop