#singleinstance
L1:= 0
fileselectfolder, source, ::{20d04fe0-3aea-1069-a2d8-08002b30309d}
fileselectfile, myVar,,%source%
stringgetpos , myPOS , myVar , \ , 1
stringtrimleft, myVAR, myVAR, myPOS +1
loop, parse, a_loopfilefullpath
{
if a_loopfield = \
L1++
}
loop, %source%\*.*, 2, 1
{
error = 0
loop, %a_loopfilefullpath%\%myVAR%, 0, 0
{
error:= 1
Break
}
if error = 0
mylist.= a_loopfilefullpath . "`n"
}
sort, mylist, CL U
menu, print, add, Print
menu, ToFile, add, To_File
;menu, ToHTML, add, To_HTML
menu, menubar, add, print
menu, menubar, add, To_File
;menu, menubar, add, To_HTML
gui, menu, menubar
gui, add, listview, r20 w750 grid nosort gClickMe, Folder
loop, parse, mylist, `n
{
lv_ADD("",a_loopfield)
}
gui, add, statusbar,, source folder - %source%
gui, show
return
guiescape:
guiclose:
exitapp
print:
fileappend, %mylist%, c:\temp\Tmp.txt
runwait, print c:\temp\Tmp.txt,,hide
filedelete, c:\temp\Tmp.txt
return
to_file:
filedelete, %source%\ex-files.txt
fileappend, %mylist%, %source%\ex-files.txt
return
ClickMe:
if a_guievent = DoubleClick
{
lv_GetText(myFolder,A_eventinfo)
run %myfolder%
}
return
#r::reload
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
; experimental
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
/*
to_HTML:
filedelete, %source%\ex-files.html
lvl:=0
html=
(
Source Directory - %source%
)
fileappend, %html%, %source%\ex-files.html
loop, %source%\*.*, 2, 1
{
L2:= 0
loop, parse, a_loopfilefullpath
{
if a_loopfield = \
L2++
}
FLst1.= a_loopfilefullpath . "~" . (L2-L1) . "~" . a_loopfilename . "`n"
}
sort, flst1, CL ;U
loop, parse , FLst1,`n
{
stringsplit , myField, a_loopfield ,~
if lvl < %myfield2%
{
fileappend, `n, %source%\ex-files.html
lvl++
}
else if lvl > %myfield2%
{
cLOOP:= lvl - myfield2
loop, %cLOOP%
fileappend,
`n, %source%\ex-files.html
lvl:= myfield2
}
if mylist contains %myfield1%
fileappend, - %myfield3%
`n, %source%\ex-files.html
else
fileappend, - %myfield3%
`n, %source%\ex-files.html
}
loop, %lvl%
fileappend,
`n, %source%\ex-files.html
fileappend, , %source%\ex-files.html
run %source%\ex-files.html
return
*/