AutoHotkey Community

FileSelectFolder, FolderName
If FolderName =
 return
TimeCheck := A_TickCount
FileCheck(FolderName, ".*")
TimeCheck := A_TickCount - TimeCheck
Msg := "<" TimeCheck / 1000 ">`n" FolderName "   " FileCheck1
Loop
 If 1_%A_Index% <>
  Msg .= "`n" 1_%A_Index% "   " SubStr(1_%A_Index%Check, InStr(1_%A_Index%Check, "\", 0, 0) + 1)
 Else
  break
Gui, Add, Edit, R30, %Msg%
Gui, Show,, FileCheck() Test
return

FileCheck(FolderName, FolderCheck = ".*", ListNum = 1)
{
 global
; administrator mode recommended
 FileCheck%ListNum% := 0
 Loop %FolderName%\*.*, 1, 0
 {
  IfInString, A_LoopFileAttrib, D
  {
   If RegExMatch(A_LoopFileLongPath, FolderCheck)
    FileCheck(A_LoopFileLongPath, FolderCheck, ListNum "_" A_Index)
   Else
    FileCheck%ListNum%_%A_Index% = 000000
   %ListNum%_%A_Index% := FileCheck%ListNum%_%A_Index%
  }
  Else
   %ListNum%_%A_Index% := A_LoopFileSize
  %ListNum%_%A_Index%Check := A_LoopFileLongPath
  FileCheck%ListNum% += %ListNum%_%A_Index%
 }
}