Nach Filename sortieren - File in folder gem. Filename versc

[cubique]

Hallo

Bin ein absoluter Script-Neuling und würde gerne folgendes realisieren:
Alle Files in einem Ordner sollen in Unterordner auf der gleichen Hierarchie verschoben werden. Dabei soll von jedem File der Name gelesen und es in den Ordner verschoben werden, der als Namen die ersten vier Zeichen des Filenamens trägt. Filenamen bestehen übrigens aus Zahlen, man könnte es also auch rechnerisch lösen.
Bsp.:
File "1001522131" soll in den Ordner "1001" verschoben werden,
File "1547638478" in den Ordner "1547".

Die Routine um alle Files nacheinander abzuarbeiten hab ich schon aus anderen Scripts zusammenkopiert. Jetzt bräuchte ich nur noch den Teil, wo der Filename gelesen, der Rest abgeschnitten (nur zur Ordnerbestimmung, der Name soll unverändert bleiben) und das File verschoben wird. Kriegs irgendwie nicht hin, kann mir jemand helfen?
Danke!
_________________
Grihdings cubique

[macgix]

[font=geneva]on run

-- Rootlevel ermitteln
tell application "Finder" to set tStartupDiskName to name of startup disk as string

-- Dateiname der ersten Datei im Rootordner extrahieren
tell application "Finder" to set tNam to name of first file of alias "Fortissimo:"

-- Wir benötigen als Ordnernamen nur die ersten vier Buchstaben
try
set tFolNam to characters 1 through 4 of tNam as string
on error -- Gibt keine 4 Buchstaben, also Dateinamen übernehmen und als Ordner kennzeichnen
set tFolNam to tNam & " É"
end try

-- Funktion ausführen und direkt Ergebnis abliefern
return my makeFolder(tStartupDiskName, tFolNam)

end run


on makeFolder(rootordner, ordnername)

-- Pfad für neuen Ordner bilden. Doppelpunkte beachten
set tFolderPath to (rootordner & ":" & ordnername & ":" ) as string

-- Nun muss der Finder ran:
tell application "Finder"

-- Versuch macht kluch
try
-- Schau mal, ob's den Ordner schon gibt
get alias tFolderPath

-- Wenn ja, dann liefere den Ordnerpfad zurück
set tFol to alias tFolderPath as string

on error -- Nee, gibts nicht!

-- Also neuen Ornder mit Namen tFolNam anlegen und Pfad zurückliefern
set tFol to (make new folder at folder (rootordner & ":" ) ¨
with properties {name : ordnername}) as string

end try

end tell

-- Pfad zum neuen Ordner zurückliefern
return tFol

end makeFolder
[/font]
_________________
[macgix]

[macgix]

Kleine Korrektur:

[font=geneva] -- Dateiname der ersten Datei im Rootordner extrahieren
tell application "Finder" to set tNam to name of first file of alias (tStartupDiskName & ":" )[/font]

muss es heissen. Da hatte sich ein "Fortissimo:" eingeschlichen.
_________________
[macgix]