複数zipファイルを解凍し、ファイル名をつけて保存

質問

複数zipファイルを解凍し、かつ、解凍したファイルの名前を変更して保存するプログラムコードを教えていただけますでしょうか。
できれば、vba vbs　のどちらかだと有り難いですが、他でも結構です。

同フォルダにzipファイルが複数格納されています。

zipのファイル名はそれぞれ異なっているのですが、解凍してみると全て同じファイル名になっています。

＜現状＞20150501summary_log.zip →解凍すると→summary_log
　 20150502summary_log.zip→解凍すると→summary_log

プログラムで、自動的に解凍しながら、ファイル名を下記のようにしていきたいのです。
　　　　20150501summary_log.zip →解凍すると→20150501summary_log
　 20150502summary_log.zip→解凍すると→20150502summary_log

おわかりになる方、コードを教えていただけますでしょうか。
ファイルが大量にあるので、プログラムで処理できれば非常に助かります。
どうかよろしくお願いいたします。

回答No.1

NuboChan

普通にはそのような解凍ソフトは無いと思います。

同じsummary_log名なので大量にある場合に区別を付けたいのであれば、
解凍時にフォルダを作成して解凍するオプションのある解凍ソフトを使えば良いのでは？

お使いのZIP解凍ソフトにそのような機能（オプション）又は指定はありませんか？
（普通そのような機能が無い解凍ソフトの方が少ないと思う。）