New folder named from CD

Scripting Forums AppleScript | Classic Mac OS
,
#1

Trying to create a script which will make a folder in a static destination, taking the name from a dynamic source (CD-ROM). New folder needs to have same name as CD currently in the tray. I know this should be fairly simple, but I keep getting errors with every revision to the script. Any ideas out there?

Thanks for the help!

#2

This may work, as long as there aren’t multiple ejectable disks mounted on your system (Zip, Jaz, external HDs, DVDs, etc.):

set target_path to (path to desktop) as string
set the_disks to list disks
tell application "Finder"
	repeat with i from 1 to (count of the_disks)
		set this_disk to (item i of the_disks)
		if ejectable of disk this_disk = true then
			try
				make new folder at folder target_path with properties {name:this_disk}
			end try
			return
		end if
	end repeat
end tell

Jon