Hier ist meine Variante:
Spoiler anzeigen
[autoit]
#include <File.au3>
[/autoit] [autoit][/autoit] [autoit]Global $sOrdner = FileSelectFolder("", @DesktopDir) & "\" ;<-- Deinen ordner mit den Datein
If $sOrdner = "" Then Exit
Dim $Files = _FileListToArray($sOrdner, "*", 1), $Ordner[1] = [$sOrdner]
Global $iOrdner = Round((UBound($Files) / 100))
Global $iCounter = 0
For $i = 0 To UBound($Files) - 1 Step 1
[/autoit] [autoit][/autoit] [autoit]If ($i = (100 * $iCounter)) Then
$Ordner[0] = $sOrdner & $iCounter & "\"
DirCreate($sOrdner & $iCounter & "\")
$iCounter += 1
EndIf
FileCopy($sOrdner & $Files[$i], $Ordner[0])
;~ ConsoleWrite(@LF & "Source: " & $sOrdner & $Files[$i] & " ;Number: " & $i & " ; Dest: " & $Ordner[0] & @LF)
Next