Help with retrofitting folder applescript
Help with retrofitting folder applescript
- Subject: Help with retrofitting folder applescript
- From: Tim Watson <email@hidden>
- Date: Wed, 22 May 2002 09:24:52 -0500
OK I have been lurkin gon the list for a few days and cannot figure out why
my script is broken.
I have a script that is a cobbled together (I am not an AS pro) that allows
our team of designers to make new job folders and their sub folders on our
server automatically. Well the script worked perfectly in os 9 but now in os
X I keep getting an error on the line that says set name of selection to ...
Here is the script maybe you guys can help me ...
(*
Make job folders on our server.
Visual Inventor Ltd. Co.
http://www.visual-inventor.com
*)
tell application "Finder"
--try
set folderPath to (choose folder with prompt "Locate the JOBS folder on
the server, select it and hit choose.")
(*on error errMsg number errNum
if errNum = -128 then
error number -128
end if*)
--end try
make new folder at folderPath
select folder "untitled folder" of folderPath
display dialog ,
"Please name this job folder." default answer "" with icon 1 buttons
{"Cancel", "OK"} default button 2
--set jobFolder to text returned of the result as text ,
set jobFolder to text returned of the result as text ,
--with properties {name:"~Photoshop"}
set the name of the selection to result --error is here
set the new_folder to make new folder at jobFolder of folderPath ,
with properties {name:"~Photoshop", label index:3}
set the new_folder to make new folder at folder "~Photoshop" of folder
jobFolder of folderPath ,
with properties {name:"nav", label index:3}
set the new_folder to make new folder at folder "~Photoshop" of folder
jobFolder of folderPath ,
with properties {name:"main", label index:3}
set the new_folder to make new folder at folder "~Photoshop" of folder
jobFolder of folderPath ,
with properties {name:"interior-pages", label index:3}
set the new_folder to make new folder at folder "~Photoshop" of folder
jobFolder of folderPath ,
with properties {name:"headers", label index:3}
set the new_folder to make new folder at folder jobFolder of folderPath
,
with properties {name:"~Updates", label index:5}
set the new_folder to make new folder at folder jobFolder of folderPath
,
with properties {name:"~Flash", label index:5}
set the new_folder to make new folder at folder jobFolder of folderPath
,
with properties {name:"~Comps", label index:5}
set the new_folder to make new folder at folder jobFolder of folderPath
,
with properties {name:"~Multimeda", label index:5}
set the new_folder to make new folder at folder jobFolder of folderPath
,
with properties {name:"~Freehand files", label index:3}
set the new_folder to make new folder at folder jobFolder of folderPath
,
with properties {name:"~Assets from client", label index:3}
set the new_folder to make new folder at folder jobFolder of folderPath
,
with properties {name:"htmlfolder", label index:2}
set the new_folder to make new folder at folder jobFolder of folderPath
,
with properties {name:"online-presentation", label index:0}
set the new_folder to make new folder at folder "online-presentation" of
folder jobFolder of folderPath ,
with properties {name:"images", label index:0}
set the new_folder to make new folder at folder "htmlfolder" of folder
jobFolder of folderPath ,
with properties {name:"templates", label index:0}
set the new_folder to make new folder at folder "htmlfolder" of folder
jobFolder of folderPath ,
with properties {name:"includes", label index:0}
set the new_folder to make new folder at folder "htmlfolder" of folder
jobFolder of folderPath ,
with properties {name:"multimedia", label index:0}
set the new_folder to make new folder at folder "htmlfolder" of folder
jobFolder of folderPath ,
with properties {name:"mainsite", label index:0}
set the new_folder to make new folder at folder "htmlfolder" of folder
jobFolder of folderPath ,
with properties {name:"coming-soon", label index:0}
set the new_folder to make new folder at folder "coming-soon" of folder
"htmlfolder" of folder jobFolder of folderPath ,
with properties {name:"images", label index:0}
set the new_folder to make new folder at folder "htmlfolder" of folder
jobFolder of folderPath ,
with properties {name:"admin", label index:0}
set the new_folder to make new folder at folder "mainsite" of folder
"htmlfolder" of folder jobFolder of folderPath ,
with properties {name:"nav", label index:0}
set the new_folder to make new folder at folder "mainsite" of folder
"htmlfolder" of folder jobFolder of folderPath ,
with properties {name:"images", label index:0}
select folder "~Comps" of folder jobFolder of folderPath
make new alias file to selection at folder jobFolder of folderPath
select file "~Comps alias" of folder jobFolder of folderPath
move selection to folder "~Photoshop" of folder jobFolder of folderPath
select file "~Comps alias" of folder "~Photoshop" of folder jobFolder of
folderPath
set name of selection to "comps"
open folder jobFolder of folderPath
end tell
tell application "Finder"
activate
set current view of container window of folder jobFolder of folder
folderPath to name
display dialog ,
"The new job folder " & "'" & jobFolder & "'" & " has been created."
end tell
Tim Watson,
Creative Director/Owner
----------------------------------------------------------------------------
Visual Inventor Ltd. Co.
http://www.visual-inventor.com
1.877.842.6768 | 405.842.6768
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.