エクセル：マクロを使ったリネーム

質問

お世話になります。
下記の内容をエクセルのマクロでできるでしょうか？
あるフォルダ（ここでは例としてＡフォルダとする）のなかに複数のフォルダがはいっています。これらのフォルダ名は実際はかなり長いのですが、必ず5桁の数字＋アンダーバーではじまります。
（例：00123_●●●）
この各フォルダにはいくつかのファイルが入っていて、拡張子がxmlのファイルが必ず１つ入っています。この拡張子がxmlのファイル名の先頭にフォルダの5桁の数字＋アンダーバーをつけた名前にリネームしたいのです。
例：abcde.xml　でフォルダ名が00123_●●●の場合　
→　00123_abcde.xml にする。
そしてリネームしたxmlファイルをＡフォルダ直下に移動させたい。

事情がありリネームソフト等は使えません。
マクロを記述したエクセルファイルをＡフォルダ直下に入れて動作させるものとします。
エクセル2003です。
よろしくお願いします。

回答No.1

temtecomai2

できますよ。
FileSystemObject を使ってみてください。
以下、マイクロソフトが公開しているリファレンスです。
http://msdn.microsoft.com/library/ja/script56/html/FSOoriFileSystemObject.asp