[AHK] File Counter

#SingleInstance force
#NoEnv

Base = Drop folder to work on here
x = %1%
Loop, %x%, 2
    Base = %A_LoopFileLongPath%

GUI:
Gui, Add, Text, vBase Center w256 h128 r2, %Base%
Gui, Add, Text, y+16 x8, Find
Gui, Add, ComboBox, x+ w64 vPattern, *||*.mp3|*.jpg|thumbs.db
Gui, Add, DDL, x+8 w64 vFind, Files||Folders|Both
Gui, Add, Checkbox, x+8 vRecurse, Recurse?
Gui, Add, Button, x+8 gCount, Count
Gui, Font, s18, Consolas
Gui, Add, Text, y+8 x8 vCount Center w256
Gui, Show
return

Count:
Gui, Submit, NoHide
Count := 0
Find := 1
If (Find = "Files")
    Find := 0
Else If (Find = "Folders")
    Find := 2
Loop, %Base%\%Pattern%, %Find%, %Recurse%
    Count := A_Index
GuiControl,, Count, %Count%
return

GuiDropFiles:
Run, %A_ScriptFullPath% %A_GuiEvent%
return

Exit:
GuiClose:
GuiEscape:
ExitApp