AutoHotkey Community

AddSubFoldersToTree(Folder, ParentItemID = 0)
{
    ; This function adds to the TreeView all subfolders in the specified folder.
    ; It also calls itself recursively to gather nested folders to any depth.
    ;---------------------------------------------------------------------------
    Loop %Folder%\*.*, 2  ; Retrieve all of Folder's sub-folders.
    {
      
      ; show files
      ;------------
      Loop %A_LoopFileFullPath%\*.*   
      {
         if ( (instr(A_LoopFileName, ".htm",CaseSensitive = false) > 0) or (instr(A_LoopFileName, ".html",CaseSensitive = false) > 0)   )
         {

            ParentID := TV_GetParent(ParentID)            
            ID := "P" .  ParentID  . "C" . A_Index
            
            msgbox, %A_LoopFileFullPath%  %ID%
            
            ID = TV_Add(  A_LoopFileName, ParentID)
         }
      }
      
    ParentItemID ++
      
    ;recurse folders
    ;----------------
    AddSubFoldersToTree(A_LoopFileFullPath, TV_Add(A_LoopFileName, ParentItemID, "Icon4"))

   }
}

Gui, Add, TreeView, w300 r20
SplitPath, A_AhkPath,, ExamplePath
AddSubFolderToTree(ExamplePath)
Gui, Show, Center, File List TreeView
Return

GuiClose:
ExitApp

AddSubFolderToTree(Folder, ParentItemID = 0)
{
  Loop %Folder%\*.*, 2
  {
    ID := TV_Add(A_LoopFileName, ParentItemID)
    AddSubFolderToTree(A_LoopFileFullPath, ID)
  }
  Loop %Folder%\*.*
    ID := TV_Add(A_LoopFileName, ParentItemID)
}