Найти фразу в имени файла и удалит файл

[zbz]

Версия AutoIt: 3.

Описание: Нужен пример скрипта чтоб: в имени ярлыках (на рабочем столе) найти фразы типа: "Мои документы.lnk", "Мои фильмы.lnk" и удалить их. Спасибо.

 

[xXx]

#include <File.au3>
Global $aFile[2] = ['документы', 'фильмы']

$aArray = _FileListToArray(@DesktopDir, '*.lnk', 1)
If @error Then Exit

For $i = 1 To $aArray[0]
	For $j = 0 To UBound($aFile) - 1
		If StringInStr($aArray[$i], $aFile[$j]) Then FileDelete(@DesktopDir & '\' & $aArray[$i])
	Next
Next