Dateien verschieben und Ordner benennen fortlaufend

    Hallo,

    ich habe noch weitere Fragen zu meinem kleinem Projekt JPG Dateien verschieben. Dank der Hilfe dieses Forums konnte ich die ersten Schritte lösen. Leider sind meine Probleme
    sehr Spezifisch. Ich würde gerne noch wissen wie ich Filemove sagen kann das er den Dateinamen übernehmen soll. Ich habe in meinem Ordner die Dateistruktur
    123100.jpg
    123101.jpg
    123102.jpg
    Wie ich 10 Dateien verschieben kann, konnte ich Dank des Forums schon bewerkstelligen. Wie kann ich jetzt sagen: erstelle mir einen Ordner mit den ersten drei Ziffern (123) ? Wenn keine 123 Dateien mehr da sind wäre es natürlich Traumhaft wenn er dann zum nächsten Block übergeht 124000 in 124 usw. Kann man auch eine Fehlermeldung bekommen ? Wenn ich Dateien verschiebe ? Also das er merkt 123101.jpg ist nicht da ? Ich hoffe das ist soweit alles verständlich. ;)

    ich würde es etwa so machen ... ungetestet ...

    [autoit]


    #include <File.au3>
    #include <Array.au3>

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

    Dim $aArray_strL[1]

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

    Local $FileList = _FileListToArray(@DesktopDir)
    If @error = 1 Then
    MsgBox(0, "", "No Folders Found.")
    Exit
    EndIf
    If @error = 4 Then
    MsgBox(0, "", "No Files Found.")
    Exit
    EndIf
    _ArrayDisplay($FileList, "$FileList")

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

    For $i = 1 To $FileList[0]

    _ArrayAdd($aArray_strL, StringLeft( $FileList[$i], 3)

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

    Next

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

    $aArray_strL = _ArrayUnique($aArray_strL) ;in dem array sollten jetzt deine namen für die ordner stehen

    For $i = 1 To $aArray_strL[0]

    ; ordner anlegen
    DirCreate("ordnerpfad\" & $aArray_strL[$i])
    Next

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

    ; danach files in die einzelnen ordner per schleife einsortieren ...

    [/autoit]

    gruß gmmg