#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