ich würde es etwa so machen ... ungetestet ...
[autoit]
#include <File.au3>
#include <Array.au3>
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")
For $i = 1 To $FileList[0]
_ArrayAdd($aArray_strL, StringLeft( $FileList[$i], 3)
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
; danach files in die einzelnen ordner per schleife einsortieren ...
[/autoit]gruß gmmg