AutoHotkey Community

#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.

FileRead, DirsToInclude, %A_ScriptDir%\SavedcDirs.ini
gui, add, treeview, Checked w500 r30
gui, add, button,, SaveList
gui, add, button, x+10, getProperties


getFolder("C:")
gui, show
return

getFolder(PFolder, PID = 0){
global DirsToInclude
Loop, %PFolder%\*.*, 2, 0
{
  ;msgbox %A_LoopField%,  %A_LoopFileName%,%A_LoopFileLongPath%
  if A_LoopFileLongPath in %DirsToInclude%
    isChecked = true
  SPID := TV_Add(A_LoopFileName, PID, isChecked)
  getFolder(A_LoopFileLongPath, SPID)
}
}

getFullPath(TID){
  TV_GetText(ItemText, ItemID)
  ItemID := TV_GetParent(ItemID)
  FolderName := getFullPath(ItemID) . "\" . ItemText
  Return FolderName
}

buttonSaveList:
ItemID = 0
Loop
{
  ItemID := TV_GetNext(ItemID, "Checked")
  if not ItemID  ; No more items in tree.
    break
  FolderToCheck := getFullPath(ItemID)
  listvars
  pause
  MsgBox The next Item is %ItemID%, whose text is "%FolderToCheck%".
}
Return

buttongetProperties:
msgbox works
return

getPath(ItemID){
  TV_GetText(ItemText, ItemID)
  If ItemID != 0
  {
    ItemID := TV_GetParent(ItemID)
    FolderName := getPath(ItemID) . "\" . ItemText
  } else
    FolderName := "C:" . FolderName
  Return FolderName
}