Open al the .lnk files in one directory

[ElEsteban]

Hello, im looking for a code for one script with open all .lnk files of a directory. I have tried with:

ShellExecute("*.lnk")

But does not work. There is any code for autoit, for detect all .lnk for the directoy where the script is located (or i specify the directories) and open all these files with are links ".lnk" for programs ".exe"?

Thanks and sorry for my english

[Melba23]

ElEsteban,

Welcome to the AutoIt forum.

_FileListToArray will get all the .lnk files in a folder into an array. You can them loop through the array and ShellExecute each one in turn.

M23

[ElEsteban]

Thanks you very much M23.

I have created this script:

expandcollapse popup

; Abrir Programas

; Opciones AutoIt
;Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("TrayIconHide", 0)
AutoItSetOption("ExpandEnvStrings",1)

#Include <File.au3>
#Include <Array.au3>

; Creando Array
$FileList=_FileListToArray(@ScriptDir, "*.lnk")
If @Error=4 Then
    MsgBox (0,"","No se encontraron Archivos lnk.")
    Exit
EndIf

; Ejecutando *.lnk
ShellExecute($FileList[1])
ShellExecute($FileList[2])
ShellExecute($FileList[3])
ShellExecute($FileList[4])
ShellExecute($FileList[5])
ShellExecute($FileList[6])
ShellExecute($FileList[7])
ShellExecute($FileList[8])
ShellExecute($FileList[9])
ShellExecute($FileList[10])
ShellExecute($FileList[11])
ShellExecute($FileList[12])
ShellExecute($FileList[13])
ShellExecute($FileList[14])
ShellExecute($FileList[15])
ShellExecute($FileList[16])
ShellExecute($FileList[17])
ShellExecute($FileList[18])
ShellExecute($FileList[19])
ShellExecute($FileList[20])
ShellExecute($FileList[21])
ShellExecute($FileList[22])
ShellExecute($FileList[23])
ShellExecute($FileList[24])
ShellExecute($FileList[25])

It works ok, but it gives an error:

I think that its because the number of variables of shellexecute are bigger than the number of .lnk files in the folder

How i can correct this error and use a small code?

Thanks

ElEsteban

[Melba23]

ElEsteban,

As I said before: "loop through the array". The number of elements is returned in the [0] element as explained in the Help file.

So you would need something like this:

; Ejecutando *.lnk
For $i = 1 To $FileList[0]
    ShellExecute($FileList[$i])
Next

M23

[ElEsteban]

Thanks you very much Melba23 sorry for my questions im a total noob

Its Works very fine, but only have a problem. If the .lnk files have a space in their name they give an error when opening this files. For example:

@ScriptDir\ReadMe.lnk Open

@ScriptDir\Program Help.lnk Give an error

I have tried with:

; Ejecutando *.lnk

For $i = 1 To $FileList[0]

ShellExecute($FileList[$i], "", @ScriptDir)

Next

But its happening the same

I have tried to use quotes in the code but it not work.

If the route of the files have spaces, there is no problem...

How i can solve this?

Edited January 13, 2011 by ElEsteban

[guinness]

Because _FileListToArray() Returns the FileName and not the FullPath! See _ArrayDisplay()

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

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

Edited January 13, 2011 by guinness

[ElEsteban]

Thank you booth, the script finally works fine.

With this script for two folders I can open all the .lnk files of the desktop:

#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

Thanks very much

Esteban