Dateien in bestimmte Ordner kopieren

[SlalomUltimate]

Hallo Zusammen,

ich weiss, dass es schon ähnliche Beiträge gibt, aber leider komme ich trotzdem nicht weiter:

Ich will Dateien aus vielen verschiedenen Ordnern kopieren und an einer anderen Stelle auf dem Server in bestimmte Unterordner einfügen. Dabei soll die jeweilige Datei in den Ordner eingefügt werden, dessen Name in den ersten 14 Stellen mit dem der Datei übereinstimmt.
Hier meine Ordnerstruktur:

Source File Structure:

Folder Proxy

Folder A001

File A001_C001_DJFK_proxy -- Files die kopiert werden sollen
File A001_C002_XJSD_proxy
...​

Folder A002

File A003_C001_HEDF_proxy​

Destination File Structure:

Folder FullRes

Folder A001

Folder A001_C001_DJFK.RDC -- in diesen Ordner müsste der File A001_C001_DJFK_proxy kopiert werden
Folder A001_C001_XJSD.RDC -- in diesen Ordner müsste der File A001_C002_XJSD_proxy kopiert werden
...​

Folder A002​

Dieses Script habe ich geschrieben und es funktioniert im Prinzip auch:

set ProxyFolder to (choose folder with prompt "Choose the PROXY Folder")
set FullresFolder to (choose folder with prompt "Choose the FULL RES Folder")

tell application "System Events"

set folderList to name of folders of FullresFolder
set fileList to name of files of ProxyFolder​

end tell

repeat with i from 1 to (count folderList)

set folderName to item i of folderList
set beginFolderName to text items 1 thru 14 of folderName
set filesToMove to {}

repeat with j from 1 to (count fileList)

set filename to item j of fileList
if filename begins with beginFolderName then

set end of filesToMove to alias ((ProxyFolder as string) & filename)​

end if​

end repeat​

tell application "Finder"

duplicate filesToMove to alias ((FullresFolder as string) & folderName & ":")​

end tell
end repeat​

Allerdings muss ich diese Script nun für jeden Ordner A001, A002 etc. ausführen. Viel einfacher und schneller wäre es, wenn ich jeweils den Toplevel-Folder angeben könnte. In diesem Fall "Folder Proxy" und "Folder FullRes".
Ich nehme an, dass ich einfach eine weitere Schleife brauchen und mit get() an die Unterordner herankomme?! Habe es aber bis jetzt noch nicht hinbekommen. Freue mich über jede Hilfe!