[aasavelev]

Попробуй следующее:

Код:

Global $data[3] =["","",""]
$text=InputBox("Дата","Укажите дату Формат ввода день.месяц.год","","",100,130); вначале указываешь за ту дату которую тебе надо скопировать
$i=0
While StringInStr($text,".")<>0
	$leng=StringLen($text)
	$point=StringInStr($text,".")
	$data[$i]=StringTrimRight($text,$leng-$point+1)
	$i=$i+1
	$text=StringTrimLeft($text,$point)
WEnd

$data[2]=$text

for $i=1 To 255
	for $j=1 to 255
		$adres="10.168."&$i&"."&$j
		$var=Ping($adres)
		If $var Then;копирует только при удачном пингованиие
			FileChangeDir("\\"&$adres&"\test\")
			$search=FileFindFirstFile("*.xml")
			While @error==0				
				$t=FileGetTime($file)
				If $t[0]==$data[2] And $t[1]==$data[1] and $t[2]==$data[0] Then
					FileCopy($file,"C:\gathering\")
				EndIf
                                                        $file=FileFindNextFile($search)
			WEnd
		EndIf
	Next
Next