Autoit.ES

Código: Seleccionar todo

; Shows the filenames of all files in the current directory.
$search = FileFindFirstFile("*.*")  

; Check if the search was successful
If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

While 1
    $file = FileFindNextFile($search) 
    If @error Then ExitLoop
    
    MsgBox(4096, "File:", $file) =>> aqui pondrías shellexecute() o run()
WEnd

; Close the search handle
FileClose($search)

Código: Seleccionar todo

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

$Folder = @ScriptDir & "\"
$FileList = _FileListToArray($Folder, "*.lnk") ;
If @error Then Exit
_ArrayDisplay($FileList)
For $A = 1 To $FileList[0]
    ShellExecute($Folder & $FileList[$A])
Next

Código: Seleccionar todo

; Opciones AutoIt
Opt("WinTitleMatchMode",4)
Opt("TrayIconHide", 0)

#include <File.au3>
#include <Array.au3>
$Folder = @DesktopCommonDir & "\"
$FileList = _FileListToArray($Folder, "*.lnk")
If @error Then Exit
For $A = 1 To $FileList[0]
    ShellExecute($Folder & $FileList[$A])
Next

$Folder2 = @DesktopDir & "\"
$FileList2 = _FileListToArray($Folder2, "*.lnk")
If @error Then Exit
For $A2 = 1 To $FileList2[0]
    ShellExecute($Folder2 & $FileList2[$A2])
Next

Código: Seleccionar todo

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

; Opciones AutoIt
Opt("WinTitleMatchMode", 4)
Opt("TrayIconHide", 0)

ExecuteFolderLinks(@DesktopCommonDir & "\")

ExecuteFolderLinks(@DesktopDir & "\")


Func ExecuteFolderLinks($_Folder)

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

	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