循环遍历某目录中扩展名为ahk 、ahkl的文件

;~ 出道题，1小时写出来：
;~ 循环遍历某目录中扩展名为ahk 、ahkl的文件

;~ 输出用|分隔各文件列表，形如 文件1|文件2|文件3

【解答1】

;战神(9897149) 20:36:13 
folder = d:\Program Files\apps\autohotkey\mgr\scripts\

Loop, %folder%\*.ahk
{
FileAppend %A_LoopFileName%|,%folder%\out.txt
}

return

Loop, %folder%\*.ahkl
{
FileAppend %A_LoopFileName%|,%folder%\out.txt
}

ExitApp

【解答2】

;sunwind 1576157
fileList=
loop, x:\ahk\excel\*.*
{
  If (A_LoopFileExt ="ahk" or A_LoopFileExt = "ahkl")
    fileList .= (fileList ? "|" : "") A_LoopFileName
}
Gui, Add, Listbox, vlistbox1 x2 y60 w970 h500
Guicontrol,, listbox1, %fileList% 
Gui, Show
Return

GuiClose:
ExitApp

;扩展提问  增加搜索文本框，输入关键字对列出的文件列表进行过滤。