Thank you.
Code: Select all
#singleinstance force
SetBatchLines,-1
Gui, Add, TreeView, w200 h400
Gui, Add, text, vtext w200 y+5
t := A_Tickcount
gui show
;FileRemoveDir %A_scriptdir%\temp,1
if(!fileexist(A_scriptdir . "\temp"))
{
tooltip creating directories
loop 100
{
filecreatedir %A_scriptdir%\temp\temp%a_index%
loc = %A_scriptdir%\temp\temp%a_index%\
loop 100
{
fileappend test,%loc%test-%A_index%.txt
}
}
}
loop, %A_scriptdir%\temp\*.txt,0,1
{
SplitPath, A_LoopFileFullPath , OutFileName, OutDir, OutExtension, OutNameNoExt, OutDrive
parent := OutDir
stringgetpos pos,parent,\,R
dt := (A_Tickcount-t)/1000
stringtrimleft parent,parent,pos+1
if(parent != oldParent)
{
tvid := TV_Add(parent . " " . dt)
}
else
{
TV_Add(parent,tvid)
}
oldParent := parent
}
TV_Modify(tvid, "Vis")
guicontrol ,,text,%dt%
return
guiclose:
exitapp
return