[Creat0R]

Код:

#include <File.au3>

_FileCreateShortcut(@ScriptDir & "\Folder\подфолдерс", "*.exe")

Func _FileCreateShortcut($sPath, $sFilter, $sWorkDir="", $sArgs="", $sDesc="", $sIcon="", $sHotKey="", $iIconID=0, $iState=0)
    $aFiles = _FileListToArray($sPath, $sFilter, 1)
    If @error Then Return SetError(1, 0, 0)

    For $i = 1 To $aFiles[0]
        FileCreateShortcut( _
            $sPath & "\" & $aFiles[$i], _
            $sPath & "\" & StringRegExpReplace($aFiles[$i], "\.[^\.]*$", "") & ".lnk", _
            $sWorkDir, $sArgs, $sDesc, $sIcon, $sHotKey, $iIconID, $iState)
    Next
EndFunc