Hallo,
Ich bin gerade dabei zu probieren wie ich die Dateistruktur als TreeView anzeigen lassen kann. Die erste "Ebene" geht noch. Danach werden keine unterordner mehr angezeigt außer programme(merkwürdigerweise).
Ich weiß die "erkennung" für ordner ist noch etwas primitiv.
Also ich vermute das problem bei der Bezeichung der items, sodass die unterdateien eines ordner nicht mehr diesem zugeordnet werden.
Könnt ihr mir helfen?
Lukas
Spoiler anzeigen
#include <GUIConstants.au3>
global $path[1000][1000]
GUICreate("Ordner",500,700)
$treeview = GUICtrlCreateTreeView(6, 6, 300, 600, BitOr($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE)
$main = GUICtrlCreateTreeViewitem("C:", $treeview)
$label=GUICtrlCreateLabel("",10,620,200,20)
list("C:",$main,1)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
func list($dir,$list,$sub)
$search = FileFindFirstFile($dir&"/*.*")
for $i = 1 to 1000
$file = FileFindNextFile($search)
If @error Then ExitLoop
$path[$i][$sub] = GUICtrlCreateTreeViewitem($file, $list)
if Not StringInStr($file,".") Then list($file,$path[$i][$sub],$i)
GUICtrlSetData($label,$i)
Next
EndFunc