Verzeichnis nach bestimmten Dateien durchsuchen und Ergebnis in Datei speichern

Hallo NG,

ich tüftle gerade an folgendem Problem:

Ich habe mir eine GUI gebastelt mit welcher ich zip Dateien in ein bestimmtes Verzeichnis extrahieren kann.

Ich möchte nun das so entstandene Verzeichnis nach bestimmten Dateien durchsuchen (*.exe, *.txt, etc.) und die gefundenen Datein grössensortiert in einer Textdatei speichern.

Kann mir diesbzgl. jemand von Euch weiterhelfen?

Besten Dank im Voraus.

cc

Danke für die raschen Antworten.

Das Einlesen mit _FileListToArray funzt. Wie kann ich nun die Dateien ihrer Größe nach einlesen bzw sortieren?

Gruß
cc

Hallo Xenbiologist,

danke für Deinen Vorschlag.

Kannst Du vielleicht ein paar erklärende Worte zu folgendem Abschnitt geben:

Local $files_A[UBound($list_A) + 100][2]


For $i = 1 To UBound($list_A) - 1
$files_A[$i - 1][0] = $list_A[$i]
$files_A[$i - 1][1] = FileGetSize($list_A[$i])
Next

Der Versuch mit dem Skript testweise alle exe-Dateien im LW C aufzulisten

Global $arr = _FileListToArraySize('C:\', '*.exe', 1)
_ArrayDisplay($arr)

wird mit folgender Fehlermeldung mir quittiert:

C:\Program Files\AutoIt3\Include\Array.au3 (680) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.: 
Local $pivot = $array[Int(($left + $right) / 2) ] 
Local $pivot = ^ ERROR

Kannst Du mir diesbzgl. bitte weiterhelfen.

Danke.

Hi,

welche beta?

Hiermit

Gruß
Patric

Hallo NG,

mit der Beta habe ich nun das Problem, dass der Filesorter von Xenobiologist funzt, aber mein ursprüngliches Skript nicht mehr

Und kann es sein, dass Scite nicht mehr der Beta zusammenarbeitet.

Da ich mein Progrämmsche nun bis auf das Sortieren fast fertig habe, wäre ich für nen kleinen Tipp nochmal sehr dankbar.

MfG

Anbei wie gewünscht Fehlermeldung und Quellcode.
Die Fehlermeldung kommt nur bei der beta.

MfG

Damit funzt es nun.

Prima danke!

Ist zwar nur ne kosmetische Angelegenheit aber wie bekomme ich trotz $ES_READONLY die Eingabefelder wieder weiß?

Hallo,

habe Deine Funktion folgendermaßen umgestrickt

For $i = 1 To UBound($list_A) - 1 ;
    	$files_A[$i - 1][0] = $list_A[$i]; 
		$tmpPath= $path & '\' & $list_A[$i] ; 
		$files_A[$i - 1][1] = Int(FileGetSize($tmpPath)/1024) 
	Next

und die Array.au3 aus der Betaversion in den include-Ordner der stabilen Version kopiert.
Damit gehts nun. Vielen Dank für die Hilfe!

MfG
cc

Hallo,

hab ich gemacht

Ein Problem habe ich allerdings dennoch. Ich sortiere mir mein Array wie folgendermassen:

Func _FileListToArraySize($sPath, $sFilter = "*", $iFlag = 0)
Local $list_A = _FileListToArray($sPath, $sFilter, $iFlag)
If @error Then SetError(@error, Default, 0)
Local $files_A[UBound($list_A)][2]

For $i = 0 To UBound($list_A) - 1 ;
$files_A[$i][0] = $list_A[$i];
Local $tmpPath= $spath & '\' & $list_A[$i] ;
;MsgBox(0, "$tmpPath", $tmpPath)
$files_A[$i][1] = Int(FileGetSize($tmpPath)/1024) ;
;_ArrayDisplay($files_A)
Next
;_ArrayDisplay($files_A)
_ArraySort($files_A, 1, 1, 0, 1)
;_ArrayDisplay($files_A)
;MsgBox(0,'Max Index String value $files_A',_ArrayMaxIndex( $files_A, 0, 1))
Return $files_A
EndFunc ;==>_FileListToArraySize

Wenn ich nun versuche das so erhaltene Array mittels _FileWriteFromArray() in eine Datei zu schreiben bekomme ich unabhängig von der AutoIt-Version die Fehlermeldung "C:\Program Files\AutoIt3\Include\File.au3 (233) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.: If FileWrite($hFile, @CRLF & $a_Array[$x]) = 0 Then
If FileWrite($hFile, @CRLF & ^ ERROR"

Obwohl rein optisch alles in Ordnung zu sein scheint wird bei einer Abfrage des _ArrayMaxIndex() der Wert -1 zurückgegeben.

Hab jetzt schon alles mögliche ausprobiert, kann den Fehler aber nicht finden.
Habt Ihr vielleicht nochmal nen Tip?

Danke

Hatte ich schon probiert. Allerdings war noch ein kleiner Fehler drin. Mit einem eindim. Array gehts. Allerdings ist der MaxIndex immer noch= -1 (was mir nicht plausibel ist)

Aber das ist denke ich nicht kriegsentscheidend.

Besten Dank!