Get All Selected Files in ListBox

[MusoCity]

I want to loop through all the multiple selected file names in the ListBox

Code: Select all

loop C:\Temp\Scripts\*.* {
	ListScripts .= "|" . a_LoopFilename
}
ListScripts := substr(ListScripts,2)

Gui, Add, ListBox, x10 y100 w600 h190 Multi vMyListBoxVariable, %ListScripts%

[mikeyww]

Code: Select all

#Requires AutoHotkey v1.1.33
dir  := A_ScriptDir "\t"
list := ""
Loop Files, % dir "\*.*"
 list .= (list = "" ? "" : "|") A_LoopFileName
Gui Font, s10
Gui Add, ListBox, w500 r20 Multi vsel, % list
Gui Add, Button , wp   Default, OK
Gui Show
Return

ButtonOK:
Gui Submit
For each, item in StrSplit(sel, "|") {
 MsgBox % item
}
Return

[MusoCity]

Thanks again !

[garry]

@mikeyww thank you , works fine .
The same to show all selected ( if needed )

Code: Select all

#Requires AutoHotkey v1.1.33
#warn
e:=""
dir  := a_desktop
list := ""
Loop Files, % dir "\*.*"
 list .= (list = "" ? "" : "|") A_LoopFileName
Gui Font, s10
Gui Add, ListBox, w500 r20 Multi vsel, % list
Gui Add, Button , wp   Default, OK
Gui Show
Return
;------------
ButtonOK:
Gui,Submit,nohide
e:=""
For each, item in StrSplit(sel, "|") {
 ;MsgBox % item
 e .= item . "`n"
}
msgbox,%e%
Return
;------------
Guiclose:
exitapp
;====================