I want to copy files to specific folders. The folder names and the file names have the first 14 characters in common. This is my folder structure:
The Source File Structure:
Proxy
RED_A001_0101R7 (the last 6 digits are random)
A001_C001_0101RN_001_Proxy.mp4 (video file to be copied)
A001_C002_0101D5_001_Proxy.mp4 (video file to be copied)
...
RED_A001_0525A1
RED_A002_010107
...
The Destination File Structure:
FullRes
RED_A001_0101R7
A001_C001_0101RN.RDC (Folder in which the correct _Proxy file should be copied in)
A001_C002_0101D5.RDC (Folder in which the correct _Proxy file should be copied in)
...
RED_A001_0525A1
RED_A002_010107
...
As you can see unfortunately sometimes two folders begin with the same folder name (but are distinguished by the random digits that follow)
I managed to put together the following script:
set ProxyFolder to (choose folder with prompt "Choose the Source Folder")
set FullresFolder to (choose folder with prompt "Choose the Destination 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
The script works - but right now I have to choose my source and destination folder for every folder A001, A002 etc. It would be more convenient to be able to choose the top-level folders as source (Folder Proxy) and destination (Folder FullRes). How can I do that?