Set Folder Name From File Name Inclosed.

Question

Hello scripters,
There has been quite a few topics about setting file names from parent folders. I believe it's possible but not sure how to reverse this process. That is to say set the folder name from a file in the folder. This is what I'm imagining.
I've got a folder. In the folder are 100 folders with the names "untitled folder xxx" In side I've got files that are all named and numbered.
For example,
untitled folder/B-day 001~050.jpg
untitled folder 50/At The Park 001~020.jpg
I would like a script to change the name of the parent folder of the files that it houses.
So untitled folder becomes
B-Day
untitled folder 50 becomes
At The Park
etc…
I think getting the name of the first file (minus the index number) would be easiest.
Any help or futher questions are greatly appreciated.
Maximilian

Answer 1

Working backwards...
Assuming all the files have the same name structure (e.g. end in the format "xxx~xxx.jpg" you can get the base name using:
<pre class=command>set baseName to characters 1 through -13 of filename as text</pre>
This cuts off the last 12 characters of the file name.
Once you have a folder, you can get the names of files in the folder via the Finder. for sanity's sake I'd ask the Finder for the first item, just in case there's more than one file:
<pre class=command>set filname to name of first item of (files of folder theFolder)</pre>
And if all the folders are in one top folder, you can iterate through them like:
<pre class=command>repeat with eachFolder in (every folder of folder topFolder)</pre>
So now, string it all together:
<pre class=command>tell application "Finder" -- we'll use the Finder to do the legwork
set topFolder to (choose folder with prompt "Choose the top level folder" ) -- get the top folder
repeat with eachFolder in (every folder of folder topFolder)
set fileName to name of first file of (files of folder topFolder)
set baseName to characters 1 through -13 of fileName as text
set name of folder eachFolder to baseName
end repeat
end tell</pre>
Note there's no error checking - the script will fail if there are no files in any particular folder, but it should get you going.