Function DDir($Start)
  ;Does not support WildCards and FileSpec must end with \ 
  Dim $TmpArray[0], $Dir, $Index, $
  $Dir = Dir($Start)
  While @Error = 0
    If $Dir <> '.' And $Dir <> '..' And GetFileAttr($Start + $Dir) & 16
      $TmpArray[$Index] = $Dir
      $Index = $Index + 1
      ReDim Preserve $TmpArray[$Index]
    EndIf
    $Dir = Dir()
  Loop
  If Ubound($TmpArray)
    ReDim Preserve $TmpArray[Ubound($TmpArray)-1]
  EndIf
  $DDir = $TmpArray
EndFunction

For Each $Folder in DDir('C:\ParentFolder\')
  ;do stuff
Next

Quote:

---

Can you use the MOVE command with variables.

---

Break ON
Dim $sParent,$sEntry,$sPrefix,$sNewEntry
  
$sParent="C:\TEMP"
$sPrefix="MY_"
  
$sEntry=Dir($sParent)
While Not @ERROR
	If $sEntry<>"." AND $sEntry<>".." AND $sEntry<>"" AND (16 & GetFileAttr($sParent+"\"+$sEntry))
		$sNewEntry=$sPrefix+$sEntry
		"Renaming "+$sEntry+" -> "+$sNewEntry+": "
		If Not Exist($sParent+"\"+$sNewEntry)
			;Move $sParent+"\"+$sEntry $sParent+"\"+$sNewEntry
			If @ERROR " **FAILED with "+@ERROR+"**"+@CRLF Else "OK"+@CRLF EndIf
		Else
			" **DESTINATION ALREADY EXISTS**"+@CRLF
		EndIf
	EndIf
	$sEntry=Dir("")
Loop
  
Exit 0