Re: Prompt to name folder
Re: Prompt to name folder
- Subject: Re: Prompt to name folder
- From: "Bob.Kalbaugh" <email@hidden>
- Date: Wed, 17 Oct 2001 12:33:22 -0500
on 10/17/01 10:46 AM, John McMillan at email@hidden wrote:
>
I have to create a folder containing sub folders with the same names many
>
times a day. I have made this easier by clicking on a script I have made up
>
which creates an untitled folder with the needed sub folders inside. What I
>
really want to happen is when I click on my script it will prompt me to name
>
the folder first rather than creating a untitled folder. Can anyone point me
>
in the right direction please.
>
John
>
_______________________________________________
>
applescript-users mailing list
>
email@hidden
>
http://www.lists.apple.com/mailman/listinfo/applescript-users
Here is a script that I have used for a while to help me with my archiving.
Maybe you can make use of it, or extract anything useful.I just increment
the archive name by 1 each time I run it.
Hope it Helps
_bob.kalbaugh
Watch the wraps.
-- begin script --
property newArchName : "Blkbook "
property oldArchName : "Blkbook 000" -- first run
set temp to display dialog "The last archive folder created was named: \"" &
oldArchName & "\"" & return & return & [option-l]
"Enter a name for the new archive below." default answer newArchName
buttons {"Cancel", "OK"} default button 2 with icon note
if button returned of temp is "OK" then
set oldArchName to text returned of temp
set x to (choose folder with prompt "Choose a destination for new
archive:")
tell application "Finder"
set y to make new folder at x with properties {name:oldArchName}
make new folder at y with properties {name:"Audio & Music"}
make new folder at y with properties {name:"Communication"}
make new folder at y with properties {name:"Development"}
make new folder at y with properties {name:"DTP & Graphics"}
make new folder at y with properties {name:"Fun & Games"}
make new folder at y with properties {name:"Interface"}
make new folder at y with properties {name:"Multimedia"}
make new folder at y with properties {name:"Productivity"}
make new folder at y with properties {name:"Programming"}
make new folder at y with properties {name:"Reference"}
make new folder at y with properties {name:"The Kitchen Sink"}
make new folder at y with properties {name:"Updates"}
make new folder at y with properties {name:"Utilities"}
make new folder at y with properties {name:"Web Tools"}
end tell
end if
-- end --