Hi ich habe ein TreeView welches komplett zugeklappt ist (keine eigene GUI!!!).
Dieses muß ich komplett aufklappen und alle Items (entspricht dem Pfad) in ein Array schreiben.
Es ist für das Tool FixFoto kann aber auf jedes TreeView angewendet werden.
Ich schaffe es das erste Item bis zu dessen letzen Unteritem aufzuklappen.
Komme dann aber nicht weiter.
Vielleicht habt ihr einen Tipp.
Danke
Spoiler anzeigen
#include<Array.au3>
Dim $unteritem
Dim $pfad[10]
$titel = 'FixFoto'
WinActivate($titel)
$winhandle = WinGetHandle($titel)
$treehandle = ControlGetHandle($winhandle, '', "SysTreeView322")
ControlFocus($winhandle, '', $treehandle)
$pfad_grund = "Desktop|Arbeitsplatz|DATEN (D:)|FixFoto"
$ebene = 0
$pfad_alt = $pfad_grund
_aufklappen($pfad_grund)
_schleife()
Func _aufklappen($pfad_ok)
ControlTreeView($winhandle, "", 613, "Expand", $pfad_ok)
$unteritem = ControlTreeView($winhandle, "", 613, "GetItemCount", $pfad_ok)
EndFunc ;==>_aufklappen
Func _schleife()
For $i = 0 To $unteritem - 1
If $i = 0 Then $ebene += 1
$pfad[$ebene] = $pfad_alt & "|" & "#" & $i
;~ $itemtext = ControlTreeView($winhandle, "", 613, "GetText", $pfad[$ebene])
_aufklappen($pfad[$ebene])
$pfad_alt = $pfad[$ebene]
If $unteritem > 0 Then
_schleife()
Else
ExitLoop
EndIf
Next
EndFunc ;==>_schleife
