Отслеживание файлов в папке

HotKeySet("{F10}", "Quit")
Func Quit()
    Exit
EndFunc

#include <File.au3>

$sPath = 'd:\Input\'
While 1
   $FileList = _FileListToArray($sPath)
   For $i = 1 To UBound($FileList) - 1
	  If StringInStr($FileList[$i], "zzz") > 0 Then
		 ;блокирую от дальнейшей обработки
		 $oFile1 = FileOpen($sPath & $FileList[$i], 2)
	  ElseIf StringInStr($FileList[$i], "xxx") > 0 Then
		 $oFile2 = FileOpen($sPath & $FileList[$i], 2)
	  ElseIf StringInStr($FileList[$i], "yyy") > 0 Then
		 $oFile2 = FileOpen($sPath & $FileList[$i], 2)
	  EndIf
   Next
   Sleep(100)
WEnd

#Include <Array.au3>
#include "File.au3"

HotKeySet("{F10}", "Quit")
Func Quit()
    Exit
 EndFunc

Dim $aMask[] = ["xxx", "yyy", "zzz"] ; Маски файлов

$sPath = 'd:\Input\'
While 1
   For $i = 0 To UBound($aMask) - 1
	  $FileList = _FileListToArray($sPath, "*" & $aMask[$i] & "*.*", 1)
	  For $j = 1 To UBound($FileList) - 1
		 $Open = FileOpen($sPath & $FileList[$j], 2)
	  Next
   Next
   Sleep(50)
WEnd