Commander

**GtaSpider**

Hallo @all!

ich hab eine frage: ich möchte so eine Art commander bauen der alle Dateien die in einer Datei geschrieben sind darstellt, so wie der Windows(Total)Commander!
Die Datei sieht ca so aus:

Code

d:\video\von anderen\Fun\Berni und Ert\zu Hause\aufraeumen.wmv
d:\video\von anderen\Fun\Berni und Ert\zu Hause\aussprache.wmv
d:\video\von anderen\Fun\Berni und Ert\zu Hause\binichschoen.wmv
d:\video\von anderen\Fun\Berni und Ert\zu Hause\der-schuss.wmv
d:\video\von anderen\Fun\Berni und Ert\zu Hause\drogen.wmv
d:\video\von anderen\Fun\Berni und Ert\zu Hause\einkaufen.wmv
d:\video\von anderen\Fun\Berni und Ert\zu Hause\freitag-13.wmv
d:\video\von anderen\Fun\Berni und Ert\zu Hause\geiselnahme.wmv
d:\video\von anderen\Fun\Berni und Ert\zu Hause\heiratsantrag.wmv
d:\video\von anderen\Fun\Berni und Ert\zu Hause\karate.wmv
d:\video\von anderen\Fun\Berni und Ert\zu Hause\knutschen.wmv

Alles anzeigen

Jetzt möchte ich die Dateien in einer Listbox oder in einem treeview haben, aber so das die einzelnen Ordner angezeigt werden und ich immer weiter runter kann, also ca so wie auf dem Bild unten, oder halt als Listbox!

Wie ist das möglich, wenn es überhaupt möglich ist?!

Mfg GtaSpider

**GtaSpider**

Hallo!

Also, ich habe im Englischen Forum eine Browse Demo gefunden! So ca sollte es auch aussehen nur halt mit dateien und von einer datei gelesen, villeicht hilft es jemanden weiter mir zu helfen?!

C

;~ #cs




#Include <GUIConstants.au3>
#include <GuiTreeView.au3>
SplashImageOn("","D:\skripts\Autoit\bilder\Initalizing.JPG","200","50","-1","-1",1)
SoundPlay("D:\skripts\Autoit\Windowsunattend\skirpts\winsetup\Setup\Button_Sound\winSpaceSysStart.wav")
Global $Tree
Global $SubTree


$Form1 = GUICreate("Browse", 243, 319, 463, 281)
$TreeView = GUICtrlCreateTreeView(8, 8, 225, 273, BitOR($WS_BORDER,$TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS))
GUICtrlSetImage(-1, "shell32.dll", 3, 4)
GUICtrlSetImage(-1, "shell32.dll", 4, 2)
$ok = GUICtrlCreateButton(">>>>>>>>>>>> &Weiter >>>>>>>>>>>>", 8, 288, 227, 25)
;~ GUISetState(@SW_SHOW)










$HDDrives = DriveGetDrive("FIXED")
For $i = 1 To $HDDrives[0]
	Search($HDDrives[$i] , "*.*")
	$var = IniReadSection("Files.ini", $HDDrives[$i] & "\")
	For $h = 1 To $var[0][0]
		$IniRead = IniRead("Files.ini", $HDDrives[$i] & "\", $h, "NotFound")
		_Next($IniRead, "*.*", $h)
	Next
Next
SplashOff()
GUISetState()




While 1;Main Loop
	$msg = GUIGetMsg()
	If $msg = $ok Then
		Run("explorer.exe "& _GUICtrlTreeViewGetTree($TreeView,"\"))
	EndIf
	If $msg = $GUI_EVENT_CLOSE Then Exit

WEnd




;Functions
;///////////////////////////////////////////
Func Search($SearchPath, $FileType)
	$Item1 = GUICtrlCreateTreeViewItem(StringUpper($SearchPath), $TreeView)
	GUICtrlSetImage(-1, "shell32.dll", 8)
		$SearchPath &= "\"
	$Search = FileFindFirstFile($SearchPath & $FileType)
	If $Search = -1 Then
		MsgBox(0, "Error", "No files/directories matched the search pattern")
		Exit
	EndIf

	$Count = 1
	Dim $Tree[99999]
	While 1
		$File = FileFindNextFile($Search)
		If @error Then ExitLoop

		$Attrib = FileGetAttrib($SearchPath & $File)
		If StringInStr($Attrib, "D") Then
			$Tree[$Count] = GUICtrlCreateTreeViewItem($File, $Item1)
			IniWrite("Files.ini", $SearchPath, $Count, $SearchPath & $File & "\")
			$Count = $Count + 1
		EndIf
	WEnd
	FileClose($Search)
EndFunc   ;==>Search






Func _Next($SearchPath, $FileType, $Number)
	$Search1 = FileFindFirstFile($SearchPath & $FileType)
	If $Search1 = -1 Then
	Else
		$Count = 1
		Dim $SubTree[99999]
		While 1
			$NextFile = FileFindNextFile($Search1)
			If @error Then ExitLoop

			$Attrib = FileGetAttrib($SearchPath & $NextFile)
			If $Attrib = "D" Then;StringInStr($Attrib,"D") Then
				If $NextFile = "." Or $NextFile = ".." Then
				Else
					$FBuffer = $SearchPath & $NextFile & "\"
					$SubTree[$Count] = GUICtrlCreateTreeViewItem($NextFile, $Tree[$Number])

					$Search2 = FileFindFirstFile($FBuffer & "*.*")
					If $Search2 = -1 Then
;~                     msgbox(0,"","Ingen mapper")
					Else
						$Count1 = 1
						While 1
							$NextFile2 = FileFindNextFile($Search2)
							If @error Then ExitLoop
							$Attrib = FileGetAttrib($FBuffer & $NextFile2)
							If $Attrib = "D" Then;StringInStr($Attrib,"D") Then
								If $NextFile2 = "." Or $NextFile2 = ".." Then
								Else
									GUICtrlCreateTreeViewItem($NextFile2, $SubTree[$Count])
									$Count1 = $Count1 + 1
								EndIf
							EndIf
						WEnd
						FileClose($Search2)
					EndIf
					;msgbox(0,"","Stop " & $Count)
					$Count = $Count + 1
				EndIf
			EndIf
		WEnd
		FileClose($Search1)
	EndIf
EndFunc   ;==>_Next
;~ #ce

Alles anzeigen

muh_kuh

kannst du die Bilder mit hoch laden ?

**GtaSpider**

Hallo!

welche bilder? Meinst du Initalzing.jpg? Und die Wave? mach ich..

MFg Spider

edit: kann mir wirklich nimand helfen? Schnief?!

**peethebee**

Hallo!

Ich muss gerade Chemie lernen, morgen hat meine Mutter Geburtstag und mein Rechner kommt, Samstag muss ich evtl. Tennis spielen.
Vielleicht finde ich mal Zeit, dir zu helfen, sprich mich halt morgen mal im ICCQ an, wenn ich online bin.

peethebee

**GtaSpider**

Hallo

Ok danke Ich hab die frage auch mal ans Englische forum gestellt, aber mein englisch müsst ich noch etwas verbessern [Blockierte Grafik: http://forum.sgh.ru/images/smiles/rotwerd.png]

**GtaSpider**

Hallo!

Ich nochmal: ich habe diese frage ja ins Engl Forum gestellt: http://www.autoitscript.com/forum/index.php?showtopic=26267&st=0&gopid=185250&#entry185250

aber ich kapier das einfach nicht [Blockierte Grafik: http://www.helden-forum.com/phpBB2/images/smiles/icon_wall.gif]
hab mal so ein bisschen rumprobiert und da kahm das raus:

C

#include <GUIConstants.au3>
#include <file.au3>


$file = "MAX-01(192.168.0.2).ini"


$Form1 = GUICreate(FileReadLine($file,1), 387, 397, 193, 126)


$List1 = GUICtrlCreateTreeView(10, 10, 331, 356, BitOR($LBS_SORT,$LBS_STANDARD,$WS_HSCROLL,$WS_VSCROLL,$WS_BORDER), 0)
$Button1 = GUICtrlCreateButton("&Take", 20, 370, 75, 25, 0)
$Button2 = GUICtrlCreateButton("&Refresh", 100, 370, 75, 25, 0)
$Button3 = GUICtrlCreateButton("GoTo Start", 180, 370, 75, 25, 0)
$Button4 = GUICtrlCreateButton("Exit", 260, 370, 75, 25, 0)
$Progress1 = GUICtrlCreateProgress(350, 10, 30, 377, BitOR($PBS_SMOOTH,$PBS_VERTICAL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUISetState(@SW_SHOW)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd


Func Read($line = 2)
	$fcl = _FileCountLines($file)-1	
	$fo = FileOpen($file,0)

	$drive = StringLeft(FileReadLine($fo,$line),2)
	GUICtrlCreateTreeViewItem($drive,$List1)
	For $i = 2 To $fcl
		$fr = FileReadLine($fo,$i)
		$ss = StringSplit($fr,"\")
		$dir = $ss[$dirdir]
		If StringLeft($fr,2) <> $drive Then
			Read($i)
			Return
		EndIf

Alles anzeigen

Dem geschulten Auge sollte auffallen das ich mitendrin aufgehört hab *g* Vlt hilft ja jmd diese vorlage oder die "vorlage" im Engl Forum(Siehe Link) weiter

würd mich freunen

ytwinky

Hi gta_spider,
du kannst dir vielleicht komische Sachen raussuchen!!
Ich habe mir mal das AutoIt2Explorer-Skript gezogen und ein wenig "bearbeitet"
Jetzt läuft das Skript, nach dem ich einige doppelte Consts's entfernt habe
und ..StructDelete.. auskommentiert habe.
Aber halt als WindowsExplorer-Ersatz(jedenfalls von der Ansicht her)
Irgendwo habe ich hier doch eine DateiListe gepostet, muttu ma kuckn
Ich benutze freeCommander, SpeedCommander usw. und benötige also
funktionierende DateiManager(mit dem WindowsExplorer kann ich nicht arbeiten..) von daher stellt sich für mich nicht die Frage, selbst einen zu schreiben.
Wenngleich, ganz uninteressant ist das nicht..
[Edit]
Ich habe sie im Forum nicht gefunden, aber auf meiner Platte(nur die Func..):

Spoiler anzeigen

Code

Func ListDir($Verzeichnis, $FileSpec="*.*")
	Local $i, $n, $Dir=$Verzeichnis, $Erw=$FileSpec, $Fehler
	$Rand&="  "
	If StringRight($Dir, 1)<>"\" Then $Dir&="\"
	If StringLeft($Erw, 1)="\" Then $Erw=StringMid($Erw, 2)
	$i=FileFindFirstFile($Dir &$Erw)
	Do
		$n=$Dir &FileFindNextFile($i)
		$Fehler=@Error
	  If Not $Fehler Then
			$Anzahl+=1
			$s&=$Rand &$n &" " &FileGetAttrib($n) &@CrLf
			If StringInstr(FileGetAttrib($n), "D") Then ListDir($n)
		EndIF
	Until $Fehler
	FileClose($i)
	$Rand=StringMid($Rand, 1, StringLen($Rand-2))
	Return $s
EndFunc

Alles anzeigen

Gruß
ytwinky

**GtaSpider**

Hallo yt_winky (*g*)

Gut danke ich werde dich natürlich meist möglich unterstützen!
So!! Hab mir jetzt auch mal den Explorer angeguckt.. der ist ja noch ziemlich beta *g* Naja guck mal was sich daraus machen lest!

Mfg Spider

ytwinky

Hi,
kannst du mit diesem ..structdelete.. was anfangen?
Auch mit der neuesten Beta erkennt er das bei mir nicht..
Gruß
ytwinky

**GtaSpider**

Hallo!

Ja DllStructDelete ist eine Veraltete Funktion die nicht mehr gebraucht wird seit beta wasweißich.. Also einfach löschen! Das kannst du mit SciTe machen in dem du STRG+H Drückst und dann in Find what DllStructDelete eingibst und Reaplece with einfach frei lässt.

Mfg Spider

ytwinky

Hi gtaspider,
diese ausführliche Bedienungsanleitung wird die Neulinge bei SciTE sicherlich freuen..
Mir persönlich hätte der Hinweis gereicht, daß die Funktion veraltet ist
Gruß
ytwinky

**GtaSpider**

Hallo!

Wolllte nur noch mal ein schlauen Tipp abgeben

Mfg Spider

**bernd670**

Hallo,

schau mal ob du damit was anfangen kannst

Spoiler anzeigen

C

;~ ###################################################
;~ # Funktion: Stellt Dateiinhalt als TreeView dar
;~ #
;~ # Autor: bernd670
;~ ##################################################
#include <File.au3>
#include <Array.au3>
#include <GUIConstants.au3>


Global $Tree[1], $FileTable[1][2]


Opt("GUIOnEventMode", 1)  ; Wechsle in den OnEvent Modus


$mainwindow = GUICreate("Browser",600, 400)
$TreeView = GUICtrlCreateTreeView(30, 40, 300, 350, BitOR($WS_BORDER,$TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS))
MakeFileTree(".\_DateiListe.txt")




GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")


GUISetState()


While 1
    Sleep(1000)
WEnd


Func CLOSEClicked()
    If @GUI_WINHANDLE = $mainwindow Then 
        Exit
    EndIf 
EndFunc


Func SelectFile()
    ;Beachte: an diesem Punkt wäre @GUI_CTRLID gleich $Tree[$Ebene]
    For $index = 0 To UBound($FileTable,1) - 1
        If $FileTable[$index][0] = @GUI_CtrlId Then
            MsgBox(0, "GUI Event", "Du hast die Datei " & Chr(34) & $FileTable[$index][1] & Chr(34) & " gewählt!")
        EndIf
    Next
EndFunc




Func MakeFileTree ($strFileName)


    Local $arFile, $arTemp, $iFile, $iInsert, $iPos, $iPos2

    If Not FileExists($strFileName) Then
        MsgBox(16, "Fehler", "Datei " & $strFileName & " wurde nicht gefunden!")
        Exit 
    EndIf

    _FileReadToArray($strFileName,$arFile)
    _ArraySort($arFile,0,1)


    $Ebene = 0
    $arTemp = StringSplit(StringStripCR($arFile[1]), "\")
    For $iInsert = 1 To $arTemp[0]


        If UBound($Tree,1) <= $Ebene Then ReDim $Tree[$Ebene + 1]


        Select
            Case $iInsert = 1
                 ; Laufwerksbezeichnung
                $Tree[$Ebene] = GUICtrlCreateTreeViewitem ($arTemp[$iInsert], $TreeView)
                $Ebene = $Ebene + 1

            Case $iInsert = $arTemp[0]
                ; Dateiname
                $Tree[$Ebene] = GUICtrlCreateTreeViewitem ($arTemp[$iInsert], $Tree[$Ebene-1])
                $FileTable[UBound($FileTable,1)-1][0] = $Tree[$Ebene]
                $FileTable[UBound($FileTable,1)-1][1] = $arFile[1]
                GUICtrlSetOnEvent($Tree[$Ebene],"SelectFile")
                ReDim $FileTable[UBound($FileTable,1)+1][2]

            Case Else
                ; Verzeichnisname
                $Tree[$Ebene] = GUICtrlCreateTreeViewitem ($arTemp[$iInsert], $Tree[$Ebene-1])
                $Ebene = $Ebene + 1


        EndSelect
    Next


    For $iFile = 2 To $arFile[0]
        $arTemp = StringSplit(StringStripCR($arFile[$iFile]),"\")
        $iPos = StringInStr($arFile[$iFile], "\", 0, -1)
        $strLeft = StringLeft($arFile[$iFile], $iPos)


        ; Ebenenkorrektur
        $iPos2 = StringInStr($arFile[$iFile - 1], "\", 0, -1)
        $Ebene = $Ebene + (UBound(StringSplit($strLeft,"\"),1) - UBound(StringSplit(StringLeft($arFile[$iFile - 1],$iPos2),"\"),1)) 

        For $iSearch = 0 To $arTemp[0] - 1
            If StringLeft($arFile[$iFile - 1],StringLen($strLeft)) =  $strLeft Then
                For $iInsert = $iSearch To 0 Step - 1


                    If UBound($Tree,1) <= $Ebene Then ReDim $Tree[$Ebene + 1]


                    Select
                        Case $iInsert = 0
                            ; Dateiname
                            $Tree[$Ebene] = GUICtrlCreateTreeViewitem ($arTemp[$arTemp[0]-$iInsert], $Tree[$Ebene-1])
                            $FileTable[UBound($FileTable,1)-1][0] = $Tree[$Ebene]
                            $FileTable[UBound($FileTable,1)-1][1] = $arFile[$iFile]
                            GUICtrlSetOnEvent($Tree[$Ebene],"SelectFile")
                            ReDim $FileTable[UBound($FileTable,1)+1][2]

                        Case $iInsert = $arTemp[0] - 1
                            ; Laufwerksbezeichnung
                            $Tree[$Ebene] = GUICtrlCreateTreeViewitem ($arTemp[$arTemp[0]-$iInsert], $TreeView)
                            $Ebene = $Ebene + 1

                        Case Else
                            ; Verzeichnisname
                            $Tree[$Ebene] = GUICtrlCreateTreeViewitem ($arTemp[$arTemp[0]-$iInsert], $Tree[$Ebene-1])
                            $Ebene = $Ebene + 1


                    EndSelect
                Next
                ExitLoop
            Else
                $Ebene = $Ebene - 1
            EndIf
            $iPos = StringInStr($strLeft, "\", 0, -2)
            $strLeft = StringLeft($strLeft, $iPos)
        Next
    Next
EndFunc

Alles anzeigen

**GtaSpider**

Saber..... respekt was ich jetzt noch schön fänd wenn 1. die dateien mit den jeweiligen icons die für die datei steht (also z.b. txt datei währe dann das txt symbol und exe das standart exe symbol(also ein weißés fenster)) verknüpft werden und ordner das standart ordner Symbol haben!
Dann währe auch noch schön wenn die ordner ganz oben währen..
Ich weiß ist viel arbeit... ich könnte das schnell mit den Icons machen aber wie könnte man das so machen das die ordner ganzoben sind??

Achso und es gibt noch ein Fehler in zeile 101! Bei mir ist manchmal ebene = 0?! Also muss man davor vlt

Code

If $Ebene = 0 Then $Ebene = 1

eingtragen

Mfg Spider

p.s. das skript mit icons kommt bald

**GtaSpider**

Hallo!

So hier nun mit Icons, jetzt müsst man es nur noch schaffen das die ornder am anfang sind!
Edit: hab noch mal überarbeitet so das auch beim ersten laufwek die Icons da sind

Spoiler anzeigen

C

;~ ###################################################
;~ # Funktion: Stellt Dateiinhalt als TreeView dar
;~ #
;~ # Autor: bernd670 & GtaSpider
;~ ##################################################
#include <File.au3>
#include <Array.au3>
#include <GUIConstants.au3>


Global $Tree[1], $FileTable[1][2]


$datei = "Windows.txt"


;~ Opt("GUIOnEventMode", 1)  ; Wechsle in den OnEvent Modus
;~ Opt("TrayIconDebug",1)


$mainwindow = GUICreate("BG Commander - "&$datei, 359, 439, 193, 126)
$TreeView = GUICtrlCreateTreeView(10, 10, 261, 397, BitOR($WS_BORDER, $TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS))
GUICtrlSetImage(-1, "shell32.dll", 4, 2)
$Search = GUICtrlCreateInput("", 60, 410, 121, 20)
GUICtrlCreateLabel("Suche:", 20, 410, 38, 15)
$SearchBut = GUICtrlCreateButton("Suchen", 190, 410, 82, 25, 0)
$start = GUICtrlCreateButton("Datei &Starten", 280, 10, 75, 25, 0)
$exit = GUICtrlCreateButton("E&xit", 280, 410, 75, 25, 0)
GUICtrlCreateEdit("", 280, 40, 75, 359,  BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetData(-1, "Copyright by"&@CRLF&"Bernd 670"&@CRLF&"& GtaSpider"&@CRLF&""&@CRLF&"Was macht"&@CRLF&"dieser"&@CRLF&"Commander?"&@CRLF&""&@CRLF&"Er listet von"&@CRLF&"einer Datei,"&@CRLF&"Dateien,"&@CRLF&"Ordner"&@CRLF&"und"&@CRLF&"Laufwerke"&@CRLF&"auf die er"&@CRLF&"dann in der"&@CRLF&"Box"&@CRLF&"Kompfortabel"&@CRLF&"anzeigt"&@CRLF&"werden"&@CRLF&""&@CRLF&"Was mach"&@CRLF&"ich bei Problemen?"&@CRLF&""&@CRLF&"Entweder eine"&@CRLF&"Im Forum"&@CRLF&"fragen!")
MakeFileTree($datei)




;~ GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")


GUISetState()


While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			Exit
		Case $msg = $start
			SelectFile(GUICtrlRead($TreeView))
	EndSelect
WEnd




Func SelectFile($lastclick)
	;Beachte: an diesem Punkt wäre @GUI_CTRLID gleich $Tree[$Ebene]
	For $index = 0 To UBound($FileTable, 1) - 1
		If $FileTable[$index][0] = $lastclick Then
			RunWait(@ComSpec & ' /c start '&$FileTable[$index][1], '', @SW_HIDE)

			ExitLoop
		EndIf
	Next
EndFunc   ;==>SelectFile




Func MakeFileTree($strFileName)

	Local $arFile, $arTemp, $iFile, $iInsert, $iPos, $iPos2

	If Not FileExists($strFileName) Then
		MsgBox(16, "Fehler", "Datei " & $strFileName & " wurde nicht gefunden!")
		Exit
	EndIf

	_FileReadToArray($strFileName, $arFile)
	_ArraySort($arFile, 0, 1)

	$Ebene = 0
	$arTemp = StringSplit(StringStripCR($arFile[1]), "\")
	For $iInsert = 1 To $arTemp[0]

		If UBound($Tree, 1) <= $Ebene Then ReDim $Tree[$Ebene + 1]

		Select
			Case $iInsert = 1
				; Laufwerksbezeichnung
				$Tree[$Ebene] = GUICtrlCreateTreeViewItem($arTemp[$iInsert], $TreeView)
				$icon = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons", "8")
				If $icon = "%1" Or @error Or $icon = "" Then $icon = "shell32.dll,2"
				$icon2 = "-1"
				$sis = StringInStr($icon, ",", 0, -1)
				If Not @error Then
					$icon2 = StringTrimLeft($icon, $sis)
					$icon = StringTrimRight($icon, StringLen($icon2) + 1)
				EndIf
				GUICtrlSetImage(-1, $icon, $icon2)
				$Ebene = $Ebene + 1

			Case $iInsert = $arTemp[0]
				; Dateiname
				$Tree[$Ebene] = GUICtrlCreateTreeViewItem($arTemp[$iInsert], $Tree[$Ebene - 1])
				$ext = StringTrimLeft($arTemp[$iInsert], StringInStr($arTemp[$iInsert], ".", 0, -1) - 1)
				$icon = RegRead("HKCR\" & $ext, "")
				$icon = RegRead("HKCR\" & $icon & "\DefaultIcon", "")
				If $icon = "%1" Or @error Or $icon = "" Then $icon = "shell32.dll,2"
				$icon2 = "-1"
				$sis = StringInStr($icon, ",", 0, -1)
				If Not @error Then
					$icon2 = StringTrimLeft($icon, $sis)
					$icon = StringTrimRight($icon, StringLen($icon2) + 1)
				EndIf
;~ 			 MsgBox(0,$icon2,$icon)
				GUICtrlSetImage($Tree[$Ebene], $icon, $icon2)
				$FileTable[UBound($FileTable, 1) - 1][0] = $Tree[$Ebene]
				$FileTable[UBound($FileTable, 1) - 1][1] = $arFile[1]
;~ 				GUICtrlSetOnEvent($Tree[$Ebene], "SelectFile")
				ReDim $FileTable[UBound($FileTable, 1) + 1][2]

			Case Else
				; Verzeichnisname
				$Tree[$Ebene] = GUICtrlCreateTreeViewItem($arTemp[$iInsert], $Tree[$Ebene - 1])
				$Ebene = $Ebene + 1

		EndSelect
	Next

	For $iFile = 2 To $arFile[0]
		$arTemp = StringSplit(StringStripCR($arFile[$iFile]), "\")
		$iPos = StringInStr($arFile[$iFile], "\", 0, -1)
		$strLeft = StringLeft($arFile[$iFile], $iPos)

		; Ebenenkorrektur
		$iPos2 = StringInStr($arFile[$iFile - 1], "\", 0, -1)
		$Ebene = $Ebene + (UBound(StringSplit($strLeft, "\"), 1) - UBound(StringSplit(StringLeft($arFile[$iFile - 1], $iPos2), "\"), 1))

		For $iSearch = 0 To $arTemp[0] - 1
			If StringLeft($arFile[$iFile - 1], StringLen($strLeft)) = $strLeft Then
				For $iInsert = $iSearch To 0 Step - 1

					If UBound($Tree, 1) <= $Ebene Then ReDim $Tree[$Ebene + 1]

					Select
						Case $iInsert = 0
							; Dateiname
							If $Ebene = 0 Then $Ebene = 1
							$Tree[$Ebene] = GUICtrlCreateTreeViewItem($arTemp[$arTemp[0] - $iInsert], $Tree[$Ebene - 1])
							$ext = StringTrimLeft($arTemp[$arTemp[0] - $iInsert], StringInStr($arTemp[$arTemp[0] - $iInsert], ".", 0, -1) - 1)
							$icon = RegRead("HKCR\" & $ext, "")
							$icon = RegRead("HKCR\" & $icon & "\DefaultIcon", "")
							If $icon = "%1" Or @error Or $icon = "" Then $icon = "shell32.dll,2"
							$icon2 = "-1"
							$sis = StringInStr($icon, ",", 0, -1)
							If Not @error Then
								$icon2 = StringTrimLeft($icon, $sis)
								$icon = StringTrimRight($icon, StringLen($icon2) + 1)
							EndIf
;~ 			 MsgBox(0,$icon2,$icon)
							GUICtrlSetImage($Tree[$Ebene], $icon, $icon2)
							$FileTable[UBound($FileTable, 1) - 1][0] = $Tree[$Ebene]
							$FileTable[UBound($FileTable, 1) - 1][1] = $arFile[$iFile]
;~ 							GUICtrlSetOnEvent($Tree[$Ebene], "SelectFile")
							ReDim $FileTable[UBound($FileTable, 1) + 1][2]
						Case $iInsert = $arTemp[0] - 1
							; Laufwerksbezeichnung
							$Tree[$Ebene] = GUICtrlCreateTreeViewItem($arTemp[$arTemp[0] - $iInsert], $TreeView)
							$icon = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons", "8")
							If $icon = "%1" Or @error Or $icon = "" Then $icon = "shell32.dll,2"
							$icon2 = "-1"
							$sis = StringInStr($icon, ",", 0, -1)
							If Not @error Then
								$icon2 = StringTrimLeft($icon, $sis)
								$icon = StringTrimRight($icon, StringLen($icon2) + 1)
							EndIf
							GUICtrlSetImage(-1, $icon, $icon2)
							$Ebene = $Ebene + 1
						Case Else
							; Verzeichnisname
							$Tree[$Ebene] = GUICtrlCreateTreeViewItem($arTemp[$arTemp[0] - $iInsert], $Tree[$Ebene - 1])
							$Ebene = $Ebene + 1

					EndSelect
				Next
				ExitLoop
			Else
				$Ebene = $Ebene - 1
			EndIf
			$iPos = StringInStr($strLeft, "\", 0, -2)
			$strLeft = StringLeft($strLeft, $iPos)
		Next
	Next
EndFunc   ;==>MakeFileTree

Alles anzeigen

So! Hier jetzt auch mal das Skript um die Datei zu schreiben:

Spoiler anzeigen

Code

$dgd = DriveGetDrive("FIXED")
$dat = @ComputerName&@CRLF
For $i = 1 To $dgd[0]
	$dat&=FileSearch($dgd[$i])
Next
$file = @ComputerName&"("&@IPAddress1&").txt"
FileDelete($file)
FileWrite($file,$dat)




Func FileSearch($search_dir, $s_ext = '*.*', $sep_char = @CRLF, $last_line = False)
	$allfiles = ''
	$z = 0
	$search_dir = StringReplace($search_dir & '\', '\\', '\')
	$search = FileFindFirstFile($search_dir & '*.*')
	While 1
		$z += 1
		$file = FileFindNextFile($search)
		If $file = '' Then ExitLoop
		$full_file = $search_dir & $file
		$check_file = StringInStr(FileGetAttrib($full_file), 'D')
		If $check_file <> 0 Then $allfiles &= FileSearch($full_file, $s_ext, $sep_char, True)
		If $check_file = 0 Then
			If $s_ext = '*.*' Then $allfiles &= $full_file & $sep_char
			If $s_ext <> '*.*' And StringTrimLeft($s_ext, 1) = StringRight($full_file, StringLen(StringTrimLeft($s_ext, 1))) Then $allfiles &= $full_file & $sep_char
		EndIf
	WEnd
	FileClose($search)
	If Not $last_line Then $allfiles = StringTrimRight($allfiles, StringLen($sep_char))
	Return $allfiles
EndFunc   ;==>FileSearch

Alles anzeigen

Edit peethebee: Spoiler eingefügt.
Edit GtaSpider: Neue Version eingefügt(GUI)

**bernd670**

Hallo,

wenn die Date Leerzeilen enthält kommt es zu einer fehlerhaften Darstellung.
Die folgenden Zeilen in der Funktion MakeFileTree nach _ArraySort($arFile,0,1) einfügen dann stimmt die Ausgabe wieder.

Code

; Leerzeilen entfernen
    $iPos = 1
    While 1
        If Not stringlen(StringStripWS($arFile[1],15)) Then 
            _ArrayDelete($arFile,1)
            $arFile[0] = $arFile[0] - 1
        Else
            ExitLoop
        EndIf
        $iPos = $iPos + 1
    Wend

Alles anzeigen

**GtaSpider**

Hallo

hast du auch noch eine Idee wie man die Ordner oben anzeigen könnte?

Mfg Spider

**GtaSpider**

Hallo!

So hab ein Problem: habe eine 6MB datei.. ich habe ihn jetzt 1 Stunde lang initaliesieren lassen, aber es funzt nichts!! Da läuft nichts! Er befindet sich laut TrayIconDebug immer in array.au3 in der _arraysort schleife bzw in der __ArrayQSort1 schleife.. hat jemand eine Idee warum dies so ist?

Mfg Spider

ytwinky

Ich habe mir grade mal den Quellcode von _ArraySort() angesehen.
Diesen Algorithmus verwende ich auch in meinem QSort.Bas.
Deshalb weiß ich, daß, wenn die Sortierdauer gegen unendlich geht(und das ist alles über 5 min),
irgendetwas mit den Eingangsparametern nicht stimmt.
Also entweder Anfangsindex verkehrt oder der EndIndex..
Versuchs mal mit ..0, MaxArray-1), (ist jetzt nur a. eine Vermutung b. ein Beispiel)
Gruß
ytwinky