AS Move all FILES (not folders) one level up in hierarchy

Hi,

I loaded my font library into Font Agent and now I want to switch to Suitcase. When I loaded the fonts into Font Agent , it put all my fonts into Alphabetical folders. Within the alphabetical folders is a font family folder>font foundry folder>font files.

Like this:
Misc TTF fonts>
P>
Papyrus>
Esselte>
Papyrus Regular.TTF
PapyrusBold.TTF
PF Easta 7>
Unknown>
PFEastaSeven.TTF
PF Easta 7 Condensed>
Unknown>
PFEastaSevenCondensed.TTF

I’d like to get rid of the “Foundry” folder and move the font files one level up into the “Font Name” folder like this:
Misc TTF fonts>
P>
Papyrus>
Papyrus Regular.TTF
PapyrusBold.TTF
PF Easta 7>
PFEastaSeven.TTF
PF Easta 7 Condensed>
PFEastaSevenCondensed.TTF

I’ve tried lot’s of different approaches but either nothing happens or I get a result in the AS window of"{}".

Can someone point me in the right direction?

TIA,
Randy

Hi,

easiest, but probably not the fastest version


set baseFolder to (choose folder) -- the folder containg the alphabetical folders 
tell application "Finder"
	set alphabeticalFolders to folders of baseFolder
	repeat with alphaFolder in alphabeticalFolders
		set foundryFolders to folders of alphaFolder
		repeat with aFoundryFolder in foundryFolders
			set foldersToGetRidOf to folders of aFoundryFolder
			repeat with getRidOfFolder in foldersToGetRidOf
				move files of getRidOfFolder to foundryFolder
				delete getRidOfFolder
			end repeat
		end repeat
	end repeat
end tell