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

Opt("WinTitleMatchMode", 4)
Opt("TrayIconHide", 0)

ExecuteFolderLinks(@DesktopCommonDir & "\")

ExecuteFolderLinks(@DesktopDir & "\")


Func ExecuteFolderLinks($_Folder)

   $FileList = _FileListToArray($_Folder, "*.xlsm")

   If @error Then
      MsgBox(0, "Error", "Se ha producido un error en la funcion _FileListToArray." & @CRLF & "Linea " & @ScriptLineNumber)
      Return -1
   EndIf

   For $A = 1 To $FileList[0]
      ShellExecute($_Folder & $FileList[$A])
   Next

EndFunc   ;==>ExecuteFolderLinks