Inhalt eines Ordners mit _FileListToArray()

  • Hey.

    Versuche gerade verzweifelt den Inhalt eines Ordners herrauszufinden.

    [autoit]


    #include <File.au3>
    #include <Array.au3>
    FileDelete(@ScriptDir & "\FileList.txt")
    $DirList = _FileListToArray("D:\AutoIt", "*", 2) ; ordner in D:\AutoIt herrausfinden

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

    If @error = 1 Then
    MsgBox(0, "", "No Files\Folders Found.")
    Exit
    EndIf

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

    $FileList = _FileListToArray("D:\AutoIt", "*.exe", 1) ; .exe dateien rausfilter in D:\AutoIt (funzt bis hier so weit)
    For $i = 1 To $FileList[0]
    FileWriteLine(@ScriptDir & "\FileList.txt", $FileList[$i])
    Next

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

    If IsArray ($DirList) Then
    For $i = 1 To $DirList[0]
    $FileList = _FileListToArray("D:\AutoIt\" & $DirList[$i], "*.exe", 1)
    If IsArray ($FileList) Then
    For $i = 1 To $FileList[0]
    FileWriteLine(@ScriptDir & "\FileList.txt", $FileList[$i]) ; das funktioniert eigentlich auch, aber immer nur für den ersten ordner. :/
    Next
    EndIf
    Next
    MsgBox (0, "", "DONE")
    EndIf

    [/autoit]

    also.. so weit funktioniert alles.. außer das dann im Ordner D:\AutoIt nur der erste Ordner gelesen wird.
    hab jetzt schon einiges ausprobiert, aber jetzt bin ich mit meinem AutoIt am ende. :P

    mfg

    Einmal editiert, zuletzt von ^T!Tu$ (14. August 2008 um 22:23)

  • Hm,
    also ohne es getestet zu haben kannste mal folgendes probieren.
    Ändere in Zeile 21 und 22 $i durch $z.
    Da du in beiden For Next Schleifen $i verwendest, kommen sich beide in die quere
    Bin aber nicht sicher ob daran liegt :D