FileListToArray Fileliste in bestimmten Unterordnern

Sirius

Hallo zusammen.

Irgendwie stehe ich komplett auf dem Schlauch! Ich versuche erstmal zu erklären, was ich genau vor habe.

Ich habe eine Ordnerstruktur die wie folgt aussieht:

S:\04 Objekte\dieser Ordnername ändert sich\02 Wartungen\05 Leistungsjahre\dieser Ordnername ändert sich\01 Dokumentation

Jetzt würde ich gerne eine Liste erstellen, die allen Files die sich in den o.g. Ordnern befinden.

Wie setze ich das am besten um? Ich habe folgendes probiert, aber leider nicht mit dem gewünschten Erfolg.

Wenn ich das Array $afolder abfrage, dann stimmt noch alles. Wenn ich aber z.B. den String $Dokupath abfrage dann gibt er mir nur 3 oder 4 Strings zurück.

Wo ist der Fehler, oder kann man das so überhaupt in Autoit umsetzen?

Code

$sPath = "S:\04 Objekte"
           $sFilter = "*"
           $iFlag = 2
           $afolder = _FileListToArray($sPath, $sFilter, $iFlag)
For $i = 1 To $afolder[0]
	$syear = $sPath & "\" & $afolder[$i] & "\02 Wartungen\05 Leistungsjahre"
	$ayearlist = _FileListToArray($syear, $sFilter, $iFlag)
	$DokuPath =  $sPath & "\" & $afolder[$i] & "\02 Wartungen\05 Leistungsjahre" & "\" & $ayearlist[$i] & "\"
Next

Vielen Dank!

**Bitnugger**

Teste das mal...

AutoIt

;-- TIME_STAMP   2016-10-19 11:12:25


#include <File.au3>


;DirCreate('S:\04 Objekte\123\02 Wartungen\05 Leistungsjahre\xyxy\01 Dokumentation')
;DirCreate('S:\04 Objekte\456\02 Wartungen\05 Leistungsjahre\dffg\01 Dokumentation')
;DirCreate('S:\04 Objekte\abc\02 Wartungen\05 Leistungsjahre\jkkl\01 Dokumentation')


Local $sPath = "S:\04 Objekte", $sFilter = "*", $iFlag = 2, $aFolder = _FileListToArray($sPath, $sFilter, $iFlag)
If @error Then Exit 1


Local $sSPC = '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
ConsoleWrite($sSPC & @CRLF)
For $i = 1 To $aFolder[0]
	$sYear = $sPath & "\" & $aFolder[$i] & "\02 Wartungen\05 Leistungsjahre"
	If FileExists($sYear) = 0 Then ContinueLoop


	$aYearList = _FileListToArray($sYear, $sFilter, $iFlag)
	If @error Then Exit 2


	For $j = 1 To $aYearList[0]
		$sDokuPath = $sPath & "\" & $aFolder[$i] & "\02 Wartungen\05 Leistungsjahre" & "\" & $aYearList[$j]
		ConsoleWrite(StringFormat('+ Path gefunden: "%s\\"\n', $sDokuPath))
		; Dateiliste laden...
		; ...
	Next
Next
ConsoleWrite($sSPC & @CRLF)

Alles anzeigen

Sirius

Hallo Bitnugger!

Funktioniert perfekt!!!!

Vielen Dank!