Re: Copying folder structures
Re: Copying folder structures
- Subject: Re: Copying folder structures
- From: Kurt Klamp <email@hidden>
- Date: Sun, 23 Dec 2007 01:49:13 +0100
Great Skeeve,
i just wanted to post my solution. its nearly the same, but yours is
even shorter,
<---
set dest to file ("destinationpath")
set src to file ("sourcepath")
clone_folders(src, dest)
on folders_of_folder(startfolder)
set namelist to {}
set folderlist to {}
tell application "Finder"
set folderlist to every folder of folder startfolder
set namelist to name of every folder of folder startfolder
end tell
return {namelist, folderlist}
end folders_of_folder
on clone_folders(sourceFolder, destFolder)
try
set {_names, _folders} to folders_of_folder(sourceFolder)
if (count _names) > 0 then
repeat with i from 1 to (count _names)
tell application "Finder"
set f to make new folder at destFolder with properties {name:get
item i of _names}
-- do some additional stuff at the newly created folder
end tell
-- log {((get item i of _folders) as string), (f as string)}
clone_folders(file (get item i of _folders as string), file (f as
string))
end repeat
end if
on error s number n
log ("Error in clone_folders: " & s & return & "Number: " & n)
end try
end clone_folders
--->
Kurt
Am 23.12.2007 um 01:33 schrieb Skeeve:
Kurt Klamp wrote:
Originally i was looking for a plain AS solution because i'm not
familiar with the shell script thingies at all.
So here we go:
on run
set s_folder to alias "Your:Original:Folder:"
set t_folder to alias "Your:Target:Folder:" -- MUST exist! &
SHOULD be empty
clone(s_folder, t_folder)
end run
to clone(s_folder, t_folder)
tell application "Finder"
set o_folders to folders of s_folder
repeat with o_folder in o_folders
set nme to name of o_folder
my clone(o_folder, make new folder at t_folder with
properties {name:nme})
end repeat
end tell
end clone
_______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users
This email sent to email@hidden