Script for Archiving data folderwise

Hi,

I want to archive more than 15 days old files from /var/spool/ directory which contains 67 folders.
I have done a script for a single folder which is as follows :

 
cd /data1/ctron80/var/spool/bmaprt/
find . -mtime +15 | awk '{print "mv " $1 " /back/spool/bmaprt"}' | sh
cd /back/spool/
zip -r "bmaprt-`date '+%Y-%m-%d'`.zip" bmaprt
mv bmaprt*.zip /dump_restore/rajan_data/spool/
cd /back/spool/bmaprt/
rm*

Now I need to do same process for remaining 66 folders, involves creating same stanza 66 times.
Is there any way to short this process ?

No tested.

cd /data1/ctron80/var/spool

ls -l |grep ^d |awk '{print $NF}' |while read folder
# if find command support -maxdepth  option
# find . -maxdepth 1 -type d |while read folder
do
  mkdir -p /back/spool/$folder
  find $folder -mtime +15 -exec mv {} /back/spool/$folder \; 
  cd /back/spool
  zip -r "$folder-`date '+%Y-%m-%d'`.zip" $folder
  mv $folder*.zip /dump_restore/rajan_data/spool/
  cd /back/spool/$folder/
  rm*
  cd /data1/ctron80/var/spool
done

---------- Post updated at 10:44 PM ---------- Previous update was at 10:36 PM ----------

Archive the old files into one .tar.gzip file

cd /data1/ctron80/var/spool
find . -mtime +15 -type f  > /tmp/filelist
tar --create --gzip --files-from /tmp/filelist --file /dump_restore/rajan_data/spool/repository-`date +%Y%m%d`.tar.gz
find . -mtime +15 -type f -exec rm {} \;