Rekursive Datei/Ordner Auflistung per Objekt

**Oscar**

Hallo BugFix!

Ich würde da noch zwei Veränderungen vorschlagen:

1. Bei Rückgabe als Array und Trennzeichen "@CRLF" trennt StringSplit nicht richtig. Es wird immer ein zusätzliches, leeres Array-Element erzeugt.
Änderung: Bei StringSplit() als dritten Parameter eine "1" eintragen.

2. Trägt man als Trennzeichen eine Zahl >2 oder einen Buchstaben ein, so wird das als Trennzeichen verwendet.
Änderung: Da Du in _ShowSubFolders() sowieso @CRLF als Standard verwendest, kannst Du in der Switch-Anweisung Case '0' in Case Else ändern und nach unten setzen.

**BugFix**

Hi Oscar,
habe deinen Beitrag hierzu erst jetzt bemerkt.

zu 1.
Danke, das paßt.

zu 2.
Ich habe es mal so getestet - aber dann geht mir ein (gewollter) Effekt verloren. Als Trenner habe ich dann nur @CR/LF. Ich wollte aber auch die Möglichkeit bieten Trenner frei zu wählen (z.B. '|').
Aber vermutlich wird Arrayausgabe eh am häufigsten genutzt.

**Xenobiologist**

Hi,

naja das führt auch dazu, dass du eigentlich noch sowas einbauen müßtest.

$aFiles[$aFiles[0]] = StringTrimRight($aFiles[$aFiles[0]], 1), da sonst diese [] dargestellt wird.

Mega

**BugFix**

Ja stimmt - bei der Stringausgabe habe ich ja auch abgeschnippelt.
Am Besten ich erweitere die Auswahl auf 2 weitere Trenner ( | und ; ) und dann sollte das reichen.

**Oscar**

Bugfix, diese Zeile (unten) ist jetzt zu viel, weil Du das letzte Trennzeichen doch bereits beim StringSplit abtrennst:

[autoit]

If $aOut[0] <> 0 Then $aOut[$aOut[0]] = StringTrimRight($aOut[$aOut[0]], StringLen($sDelim))

[/autoit]

**BugFix**

grml du hast schon wieder recht - ist ja unheimlich.

**Oscar**

Sorry, jetzt habe ich aber auch nichts mehr zu mäkeln. Alles Super!

**Xenobiologist**

Na dann muss ich mal gucken, ob ich noch was finde

**Xenobiologist**

Hmmh, man könnte natürlich noch auf Groß/Kleinschreibung eingehen oder sowas hier

[autoit]

Func _ShowSubFolders1($Folder, $Ext = '*', $Dir = -1, $Delim = @CRLF)
If Not IsDeclared("strFiles") Then Global $strFiles = ''
If Not IsDeclared("$oFSO") Then Global $oFSO = ObjCreate('Scripting.FileSystemObject')
If ($Dir = -1) Or ($Dir = 0) Then
For $file In $Folder.Files
If $Ext <> '*' Then
If $oFSO.GetExtensionName($file) == $Ext Then $strFiles &= $file.Path & $Delim
Else
$strFiles &= $file.Path & $Delim
EndIf
Next
EndIf
For $Subfolder In $Folder.SubFolders
If ($Dir = -1) Or ($Dir = 1) Then $strFiles &= $Subfolder.Path & '\' & $Delim
_ShowSubFolders1($Subfolder, $Ext, $Dir, $Delim)
Next
EndFunc ;==>_ShowSubFolders1

[/autoit]

Aber das ist ein bißchen langsamer.

Andere Erweiterungsmöglichkeiten wären z.b.

Spoiler anzeigen

[autoit]

$fso = ObjCreate("Scripting.FileSystemObject")
$f1 = $fso.GetFile("c:\Downloads\AutoIt-Skripte\Entwicklung\ForumTests\test.au3")
ConsoleWrite("Existiert Datei?: " & $fso.FileExists($f1) & @CRLF)
ConsoleWrite("Name: " & $f1 .Name & @CRLF)
ConsoleWrite("Pfad mit Dateiname: " & $f1 .Path & @CRLF)
ConsoleWrite("Dospfadname: " & $f1 .shortpath & @CRLF)
ConsoleWrite("Dosname: " & $f1 .shortname & @CRLF)
ConsoleWrite("Datei-Endung: " & $fso.GetExtensionName($f1) & @CRLF)
ConsoleWrite("Pfad: " & $fso.GetParentFolderName($f1) & @CRLF)
ConsoleWrite("Laufwerk: " & $fso.GetDriveName($f1) & @CRLF)
ConsoleWrite("Typ: " & $f1 .Type & @CRLF)
ConsoleWrite("Erstellt am: " & $f1 .DateCreated & @CRLF)
ConsoleWrite("Letzter Zugriff: " & $f1 .DateLastAccessed & @CRLF)
ConsoleWrite("Letzte Änderung: " & $f1 .DateLastModified & @CRLF)
ConsoleWrite("Grösse: " & $f1 .Size & " Bytes" & @CRLF)
ConsoleWrite("Attribut: " & $f1 .attributes & @CRLF)

[/autoit]

Mega

Xethria

Ich bin auf einen Fehler gestoßen, wenn die Dateien, nach den ich suche eine 0 im Namen haben, dann gibs Probs...
Habe es bei *gif und bei *tcd-Dateien festgestellt....
Geht das schnell zu beheben??

EDIT:
Ich möchte nicht undankbar erscheinen!! Noch nachträglich: Es ist ein wunderbares Script und hat mir sehr geholfen!! Danke! Lob! Toll!

**Xenobiologist**

HI,

wie genau sieht der Fehler aus?

Mega

Xethria

Das Array wird nicht richtig erstellt.

Beispiel:

Datei:
10123404566789.jpg

Das Array enthält in der ersten Zeile (row 0) die Anzhal der Zeilen. In jeder weiteren Zeile ist jeweils der Pfad mit der Datei, die gefunden wird.

Beispiel:
Row1 | D:\Beispiel\10123404566789.jpg
Row2 | D:\Beispiel\abcd.jpg
uws.

So sieht das Array aber leider nicht aus, sondern so:

Row1 | D:\Beispiel\1
Row2 | 1234
Row3 | 4566789.jpg
Row4 | D:\Beispiel\abcd.jpg

Die Nullen werden parktisch als "Trennung" erkannt.
Ich hoffe, ihr versteht mich.

**Oscar**

Kann ich nicht nachvollziehen.
Mit welchen Parametern rufst Du die Funktion auf?

Xethria

Zitat

Func _GetFilesFolder_Rekursiv($sPath, $sExt='*', $iDir=-1, $iRetType=0, $sDelim='0')
Global $oFSO = ObjCreate('Scripting.FileSystemObject')
Global $strFiles = ''
Switch $sDelim
Case '1'
$sDelim = @CR
Case '2'
$sDelim = @LF
Case '3'
$sDelim = ';'
Case '4'
$sDelim = '|'
Case Else
$sDelim = @CRLF
EndSwitch

Alles anzeigen

Den Teil SelectCase habe ich herausgelöscht, weil ich nicht wusste wozu der Teil ist und keine Fehler verursacht hatte (nach dem Herausnehmen).
Also hatte ich für mich entschieden, dass ich ihn nicht brauch.
Wofür ist $sDelim? Ist das vielleicht der entscheidene Punkt mit "meiner 0"?

**Raupi**

Das ist eine Abfrage für den Delimiter ( Trennzeichen) . Sie setzt für die Werte von 0-4 die entstrechenden Trennzeichen , die später in der Funktion verwendet werden . Wenn $Delim <1 und >4 ist wird das Trennzeichen @CRLF verwendet .

Edit dein beschriebener Fehler kommt daher, das du die Abfrage für den Delimiter rausgenommen hast . Dann wird als Trennzeichen null verwendet , da er im Funktionskopf als Standard vorgegeben ist .

Xethria

Ah. also war ja meine Beschreibung, mit dem Wort "Trennung" ja richtig.
Nur, dass ich jetzt erst verstehe warum. Vielen Dank! Habe '0' durch @CRLF ersetzt und das Script läuft super. Vielen Dank, Raupi.

**BugFix**

Zitat von Xethria

Den Teil SelectCase habe ich herausgelöscht, weil ich nicht wusste wozu der Teil ist und keine Fehler verursacht hatte (nach dem Herausnehmen).
Also hatte ich für mich entschieden, dass ich ihn nicht brauch.

Also Xethria, eigentlich müßte ich mich beleidigt fühlen. Ich programmiere gaaaanz sicher nix in meine Funktionen, das ohne Sinn ist.
Aber die Rache des Programms hat dich ja schon voll erwischt, und somit bin ich auch nicht sauer.

Xethria

Ich muss dann an der Stelle sagen, dass ich den Teil herausgelöscht habe, nicht weil ich ihn doof oder unsinnig fand, ich habe dein Script für meine Bedürfnisse angepasst. Und hier und da "geschnibbelt".
Und da brauchte ich diese Abfrage nicht.
Und mein Script hat auch seit November 2008 funktioniert. Doch erst heute bin ich einer Datei begegnet, die eine 0 im Namen trug.
Sonst wär mir dieser Punkt niemals aufgefallen.

DasBaum

kann man auch nur z.B. textdatein (quasi *.txt) datein auflisten lassen?

EDIT: Script sieht zz so aus

Spoiler anzeigen

[autoit]

#include<Array.au3>
$ret = _GetFilesFolder_Rekursiv(@DesktopDir, "*",0,1)
If IsArray($ret) Then
_ArrayDisplay($ret, 'Rekursiv alle au3-Dateien')
Else
;ConsoleWrite($ret & @CRLF)

[/autoit] [autoit][/autoit] [autoit]

$Ini = @DesktopDir & "\test.ini"
FileWrite( $Ini, $ret)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndIf

[/autoit] [autoit][/autoit] [autoit]

;==================================================================================================
; Function Name: _GetFilesFolder_Rekursiv($sPath [, $sExt='*' [, $iDir=-1 [, $iRetType=0]]])
; Description: Rekursive Auflistung von Dateien und/oder Ordnern
; Parameter(s):$sPath der Basispfad für die Auflistung ('.' -aktueller Pfad, '..' -Parentpfad)
; $sExt Erweiterung für Dateiauswahl '*' oder -1 für alle (Standard)
; $iDir -1 Dateien+Ordner(Standard), 0 nur Dateien, 1 nur Ordner
; optional: $iRetType 0 gibt Array, 1 gibt String zurück (Einträge @LF-getrennt)
; Return Value(s): Array (Standard) od. String mit den gefundenen Pfaden der Dateien und/oder Ordner
; Array[0] enthält die Anzahl der gefundenen Dateien/Ordner
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;==================================================================================================
Func _GetFilesFolder_Rekursiv($sPath, $sExt='*', $iDir=-1, $iRetType=0)
Global $oFSO = ObjCreate('Scripting.FileSystemObject')
Global $strFF_Ret = '', $strFiles = ''
If ($iRetType < 0) Or ($iRetType > 1) Then $iRetType = 0
If $sExt = -1 Then $sExt = '*'
If ($iDir < -1) Or ($iDir > 1) Then $iDir = -1
_ShowSubFolders($oFSO.GetFolder($sPath),$sExt,$iDir)
If $iRetType = 0 Then
Local $aOut
$aOut = StringSplit(StringTrimRight($strFF_Ret,1), @CRLF)
If $aOut[1] = '' Then
ReDim $aOut[1]
$aOut[0] = 0
EndIf
Return $aOut
Else
Return StringTrimRight($strFF_Ret,1)
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _ShowSubFolders($Folder, $Ext='*', $Dir=-1)
For $Subfolder in $Folder.SubFolders
If ($Dir = -1) Or ($Dir = 1) Then $strFF_Ret &= $Subfolder.Path & @CRLF
If ($Dir = -1) Or ($Dir = 0) Then
$files = $Subfolder.Files
For $file In $files
If $Ext <> '*' Then
If StringRight($file.Name, StringLen($Ext)) = $Ext Then _
$strFiles &= $file.Path & @CRLF
Else
$strFiles &= $file.Path & @CRLF
EndIf
Next
EndIf
$strFF_Ret &= $strFiles
$strFiles = ''
_ShowSubFolders($Subfolder, $Ext, $Dir)
Next
EndFunc

[/autoit]

**Raupi**

Natürlich als 2. Parameter einfach 'txt' angeben .