Boucle pour compresser des sous-répertoires

Bonjour,

Je cherche à compresser les sous-répertoires d'un répertoire mais au lieu de 
préciser le nom de chacun de ses sous-répertoires je préférerais avoir une 
boucle qui prendrait les sous-répertoires un par un pour les compresser 
(celà m'éviterais d'avoir des problèmes en cas d'ajout de nouveau 
sous-répertoire ou en cas de modification de nom d'un sous-répertoire)... 
Pour la compression pas de problème j'utilise pkzip25 mais pour la boucle je 
ne sais comment faire en ms-dos...

Je voudrais avoir qque chose du style :
Faire Dir ( monrép \ * )
     Compresser  MonSousRép
Tant que non Fin

J'ai, par exemple, un répertoire qui se présenterait comme celà:
Repertoire
    Sous-rép1
        Fic1
        Fic2
    Sous-rép2
        Sous-rép2a
        Sous-rép2b
    Sous-rép3
    Sous-rép4
        Fic1
        Fic2

A partir de celà j'obtiendrais alors les fichiers zippés:
Sousrep1.zip
Sousrep2.zip
Sousrep3.zip
Sousrep4.zip

Merci d'avance pour votre aide.
-- 
@+
HD