Создание ярлыков на рабочем столе

[gagarin74]

Добрый день. В папке c:\distr лежат файлики exe(иногда меняются,добавляются). Как сделать скрипт что бы он пробегал по всем exe файликам в папке c:\distr - и создавал на рабочем столе их ярлыки.

 

[joiner]

Пример

#include <File.au3>
Local $sPath = 'C:\distr'
Local $aFileList = _FileListToArray($sPath, '*.exe', 1)
If Not @error Then
    For $i = 1 To $aFileList[0]
        FileCreateShortcut($sPath & '\' & $aFileList[$i], @DesktopDir & '\' & $aFileList[$i] & '.lnk')
    Next
EndIf