I have a script to create archived folders that limit the size to 660mb. I am trying to archive folders that are nested. Does anyone know what I can add to the script below so nested folders can be archived also.
set max_folder_size_in_mb to 660
set images_folder to "LaCie:Archives:INM29148:"
set archive_folder to "LaCie:mike_ burn:"
set subfolder_counter to 1
tell application "Finder"
activate
repeat until (count files in folder images_folder) is 0
set folder_name to "splitfolder" & subfolder_counter
set archive_sub_folder to make new folder in folder archive_folder with properties {name:folder_name}
set image_list to list folder alias images_folder without invisibles
set file_list to {}
set total_MB to 0
set file_counter to 1
repeat while ((total_MB is less than max_folder_size_in_mb))
set fileName to item file_counter of image_list
set file_size to size of (info for alias (images_folder & fileName))
set file_size_in_MB to (file_size / 1024 / 1024)
set total_MB to total_MB + file_size_in_MB
set file_counter to file_counter + 1
set fileMovin to images_folder & fileName
try
move file fileMovin to archive_sub_folder
on error
display dialog "There was a problem moving the file from/to - " & images_folder & fileName & " " & archive_sub_folder buttons ("Cancel") default button 1
end try
end repeat
set subfolder_counter to subfolder_counter + 1
end repeat
end tell
thanks
Michael Wendelken/TSR
Nec Inc.
345 7th Ave Suite 1101
New York,NY 10001
Phone: 646-733-9166 ext. 4009
Fax: 646-733-9178
mikew@necinc.com
:?: