If[$OperatingSystem=="Windows",basedir="C:\\Users\\Don\\Desktop\\Desktop\\";pathsep="\\";,
basedir="/home/don/";
pathsep="/";
];
comicnum="244";
SetDirectory[basedir<>comicnum]
dirlist=Cases[FileNames[],a_/;FileType[a]==Directory];
Do[
CreateArchive[dirlist[[i]],"zip"<>pathsep<>dirlist[[i]]<>".zip"]
,{i,1,Length[dirlist]}
]
SetDirectory[];