archive and move files around

I need help moving zipping all sub folders in a folder, then move them to new created folders named (1-100), (101-200)…etc…100 zipped files at a time.
honestly I got tired looking for a script that might work in older threads, so any suggestions will be great.

Thanks,
Bill

I just finished up with an Aperture script that managed 100 files at a time. You need to tailor it a lot to fit your needs, but here is the part that handles the files. You need to set the handler that archives the files as fileExport() and have it name them.


set ipro to choose folder
tell application "Finder"
	set allFiles to every file of folder ipro
	set icount to count of allFiles -- The number of files in the container
	if icount ≠ 0 then -- Check if there are files in the folder
		if icount ≤ 100 then -- If there are 100 or less files in the folder
			--This is where I had a handler to export the files, but you could put one here to archive them
			my fileExport(allFiles)
		else if icount ≥ 101 then -- If there are 101 images or more the repeat loops starts
			repeat
				set batchex to ((items 1 thru 100 of allFiles) as list) -- This capture the first 100 files in the variable
				my fileExport(batchex) -- Then exports them
				set allFiles to items 101 thru -1 of allFiles
				set icount to count of allFiles
				if icount ≤ 100 then
					my fileExport(allFiles)
					exit repeat
				end if
			end repeat
		end if
	end if
end tell