Multi Copy?

Dim $ps, $pd, $rpt, $ts, $td, $fn, $ss ; Обявяване на ползвани променливи: от къде, към къде, повтаряй след, време на файла от къде, време на файла към къде, файлов интерпретатор, търсещ интерпретатор

If $CmdLine[0] = 3 Then ; Само, ако има 3 параметара 
	$ps = $CmdLine[1] ; 1 параметър е от къде
	$pd = $CmdLine[2] ; втори параметър е към къде
	$rpt = Int($CmdLine[3]) ; трети параметър е време в секунди
	Do ; повтаряй 
		$ss = FileFindFirstFile($ps & "*.*") ; за всички (*.*) файлове от къде
		While 1 ; повтаряй безкрайно
			$fn = ileFindNextFile($ss) ; взима името на файла
			If @error Then ExitLoop ; ако са свършили файлове прекъсва
			$ts =  FileGetTime($ps & $fn, 0, 1) ; взима времето на файла "от"
			$td =  FileGetTime($pd & $fn, 0, 1) ; взима времето на файла "към" (ако има)
			If StringCompare(StringLeft($ts,12), StringLeft($td,12)) <> 0 Then FileCopy ($ps & $fn, $pd, 9) ; сравнява двете времена без секундите и ако са различни - попира файла "от" в "към" папка, като презаписва/пресъздава, ако имало друг
		WEnd
		FileClose($ss) ; затваря интерпретатора
		Sleep($rpt * 1000) ; изчаква избраните секунди (*1000, защото е в милисекунди) 
	Until $rpt = 0 ; връща се да повтаря към "Do", ако не е било избрано 0, т.е. без повторения 
EndIf