Archive entpacken und nach Ordnernamen benennen

Guten Abend,

ich habe mehrere Ordner, die alle gesplittete Rar-Archive (.rar, .r00, r01, etc.) enthalten. Ich möchte die Archive gerne entpacken und mit dem Ordnernamen benennen.

OrdnerAlpha
Archiv1.r00
Archiv1.r01
Archiv1.rar --> Entpacken und Inhalt in Alpha umbenennen
OrdnerBeta
Archiv1.r00
Archiv1.r01
Archiv1.rar --> Entpacken und Inhalt in Beta umbenennen

Ich kann mir vorstellen, dass dies relativ einfach mit einem Makro umsetzbar ist. Kann mir bitte jemand...

Archive entpacken und nach Ordnernamen benennen