エクセルVBAでフォルダ指定後、フォルダ内のファイル操作について

質問

あるフォルダ内に大量のフォルダ（フォルダ名は日時）があり、その各フォルダ内にテキストファイルが001.txt、002.txtとあります。
それぞれのテキストファイルの名前をフォルダ名（日時）とテキストファイル名を組み合わせたファイル名にしたいです。
イメージ）
　最初に大元のフォルダを選択。
　　　　↓
　選択されたフォルダ内にある大量のフォルダから
　それぞれのフォルダ名をフォルダ内のテキストファイルへファイル名を変更する。

例）フォルダ名「2006-08-28 11-30」
　　テキスト名「001.txt」
　　このファイルを「2006-08-28 11-30-001.txt」
みたいにしたいです。

非常にわかりにくいかもしれません。。
これができると非常に助かりますので、是非ご教示お願いします。

回答No.2

yokomaya · ベストアンサー

返事遅れてすみません。dirはよく知らないとのことですがVBAのHelpで使用例はごらんになりましたか？ポイントは最初はパスを指定するが残りは指定せずに""が返るまで繰り返す点です。もうひとつは最初にフォルダだけを探す為にattributesにvbDirectoryを指定して全てをセルなどに記録するのが良いでしょう。最後に移動するなら同時に一気に行うほうが得策ですよ。もう一度Dirで調べなおす手間がかかりますから。移動はnameで実現できます。

回答No.1

yokomaya

場所は動かさないでリネームだけでいいのですか？イメージだと親フォルダに移した方が扱い易い気がしますが。ご質問はdirで実現出来るのではないかと思います。

補足

回答ありがとうございます。
コメント不足でした。すみません。
最終的には親フォルダに新しいフォルダを作成し、そのフォルダに全テキストデータをリネームして保存したいです。
dirの使い方をよく知らないのですが、
フォルダ内にある多数のフォルダの操作って可能なのでしょうか？