SEARCH-FOLDERS.ahk

#warn
#noenv
setworkingdir,%a_scriptdir%
SetBatchLines, -1
SetKeyDelay,50,50


dir1 = %A_WorkingDir%
Gui,2:default
Gui,2: -DPIScale
Gui,2:Font,s14 , Verdana
Gui,2:Color,Black,Black
wa:=A_screenwidth,ha:=A_screenHeight,xx:=100,
T1:=(wa*0)/xx,T2:=(wa*25)/xx,T3:=(wa*0)/xx,T4:=(wa*9)/xx  ;- columns-width

x:=(wa*1)/xx,y:=(ha*2)/xx,w:=(wa*36)/xx,h:=(ha*4)/xx
  Gui 2:Add, Edit,x%x% y%y% w%w% h%h% vfind cYELLOW gSearch
x:=(wa*1)/xx,y:=(ha*7)/xx,w:=(wa*36)/xx,h:=(ha*80)/xx
  Gui,2: Add , ListView, x%x% y%y% w%w% h%h% backgroundGray cYellow grid vLV1 gLV1a altsubmit Multi, #|%dir1%|Fullpath|Date
  LV_ModifyCol(1,T1),LV_ModifyCol(2,T2),LV_ModifyCol(3,T3),LV_ModifyCol(4,T4),LV_ModifyCol(1,"integer"),LV_ModifyCol(2,"left"),LV_ModifyCol(4,"digit"),LV_ModifyCol(4, "left")
x:=(wa*2)/xx,y:=(ha*2)/xx,w:=(wa*38)/xx,h:=(ha*90)/xx
  Gui,2: Show,x%x% y%y% w%w% h%h%,LISTVIEW show folders
GuiControl,2: Focus,Find
gosub,fill
return
;---------------------
2Guiclose:
exitapp
;----------------------------

;------------------
Search:
Gui,2:default
Gui,2:Submit, Nohide
if find=
   goto,fill
Gui,2:ListView, LV1
ib=0
row := []
LV_Delete()
loop,files,%dir1%\*,D
{
   ib++
   z:=A_LoopFileFullPath
   z1:=a_loopfilename
   row := []
   if instr(z1,find)
     {
     row.push(ib,z1,z,a_loopfiletimemodified)
     LV_add("",row*)
     row := []
     }
}
LV_ModifyCol(4, "Logical SortDesc")
return
;----------------
Fill:
Gui,2:default
Gui,2:Submit, Nohide
Gui,2:ListView, LV1
ib=0
row := []
LV_Delete()
GuiControl,2: -Redraw,LV1
loop,files,%dir1%\*,D
{
   ib++
   z:=A_LoopFileFullPath
   z1:=a_loopfilename
   row := []
   row.push(ib,z1,z,a_loopfiletimemodified)
   LV_add("",row*)
   row := []
}
GuiControl,2: +Redraw,LV1
LV_ModifyCol(4, "Logical SortDesc")
sleep,500
GuiControl,2: Focus,Find
return
;----------------
LV1a:
Gui,2: Submit, Nohide
Gui,2:ListView, LV1
RC:=LV_GetNext("C")
RF:=LV_GetNext("F")
GC:=LV_GetCount()
  If A_GuiEvent=Normal
     {
     LV_GetText(C3,A_EventInfo,3)
     if (c3="C:\System Volume Information")
       run,::{20d04fe0-3aea-1069-a2d8-08002b30309d}
     else if ((c3="C:\Documents and settings") or (c3="C:\Dokumente und Einstellungen"))  ;- english and german
       run,C:\users\%a_username%\Documents
     else if (c3="C:\$Recycle.Bin")
       run,::{645ff040-5081-101b-9f08-00aa002f954e}
     else
        run,%c3%
     return
     }
return
;==========================