Hallo ihr Lieben.
Ich wollte ein kleines Script schreiben das mit alle Ordner auf der Festplatte (oder ab gegebenen Pfad) in einem TreeView gibt, und diese denn nach 'Größe sortiert.
So sollte es später denn aussehen:
[autoit]#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("About", 464, 335, 196, 124)
$TreeView1 = GUICtrlCreateTreeView(0, 0, 481, 353)
$TreeView1_0 = GUICtrlCreateTreeViewItem("C:\", $TreeView1)
$TreeView1_1 = GUICtrlCreateTreeViewItem("Programme 98048MB", $TreeView1_0)
$TreeView1_2 = GUICtrlCreateTreeViewItem("AutoIt 568MB", $TreeView1_1)
$TreeView1_3 = GUICtrlCreateTreeViewItem("shell 96MB", $TreeView1_2)
$TreeView1_4 = GUICtrlCreateTreeViewItem("bin 0.95MB", $TreeView1_2)
$TreeView1_5 = GUICtrlCreateTreeViewItem("Scite 62.9 MB", $TreeView1_1)
$TreeView1_6 = GUICtrlCreateTreeViewItem("Mein Ordner 8924MB", $TreeView1_0)
$TreeView1_7 = GUICtrlCreateTreeViewItem("Windows 5600MB", $TreeView1_0)
$TreeView1_8 = GUICtrlCreateTreeViewItem("System32 2684MB", $TreeView1_7)
$TreeView1_9 = GUICtrlCreateTreeViewItem("Driver 56MB", $TreeView1_8)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Also Ok... Ich habe bis jetzt die Ordnersuche , nur weiß ich nicht wie ich das ganze der Größe nach in einem TreeView auflisten soll.
Hat jemand vielleicht eine Idee ?
Wäre echt super! Vielen Dank im Vorraus,
Lenny
P.S.: Hier ist mein Script, so wie ich es bis jetzt habe:
[autoit]#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("About", 464, 335, 196, 124)
$TreeView1 = GUICtrlCreateTreeView(0, 0, 481, 353)
$TreeView1_0 = GUICtrlCreateTreeViewItem("C:\", $TreeView1)
$TreeView1_1 = GUICtrlCreateTreeViewItem("Programme 98048MB", $TreeView1_0)
$TreeView1_2 = GUICtrlCreateTreeViewItem("AutoIt 568MB", $TreeView1_1)
$TreeView1_3 = GUICtrlCreateTreeViewItem("shell 96MB", $TreeView1_2)
$TreeView1_4 = GUICtrlCreateTreeViewItem("bin 0.95MB", $TreeView1_2)
$TreeView1_5 = GUICtrlCreateTreeViewItem("Scite 62.9 MB", $TreeView1_1)
$TreeView1_6 = GUICtrlCreateTreeViewItem("Mein Ordner 8924MB", $TreeView1_0)
$TreeView1_7 = GUICtrlCreateTreeViewItem("Windows 5600MB", $TreeView1_0)
$TreeView1_8 = GUICtrlCreateTreeViewItem("System32 2684MB", $TreeView1_7)
$TreeView1_9 = GUICtrlCreateTreeViewItem("Driver 56MB", $TreeView1_8)
GUISetState(@SW_SHOW)
$List = ""
$I = 0
Func _SearchDir($Path = "C:\", $FileT = "*")
$Search = FileFindFirstFile($Path & "*.*")
While 1
$File = FileFindNextFile($Search)
If @error Then Return ($List)
$FilePath = $Path & $File
If StringInStr(FileGetAttrib($FilePath), "D") Then
$List &= $FilePath & " " & Round(DirGetSize($FilePath) / 1024 / 1024, 3) & "MB" & @CRLF
ToolTip($FilePath, 0, 0, "Current File")
_SearchDir($FilePath & "\", $FileT)
EndIf
WEnd
FileClose($Search)
EndFunc ;==>_SearchDir
ClipPut(_SearchDir())
[/autoit]lG