VBScriptのバッチでの作成を考えています。
あるフォルダ(名をFolderとします)の中に、たくさんのサブフォルダが
あって、そこにあるファイルをすべてFolderに移動させたいと
思っています。
(ファイルはjpg画像ファイルだけです。)
たとえば、Folderの下に、Folder_Bというサブフォルダがあって、
更にその下にFolder_Cがあり、その中には1.jpgというファイルが
あったとしたら、バッチ実行後、Folderの直下に1.jpgがあり、
(可能であれば)フォルダはすべて消えているという具合です。
ファイルの移動自体はファイルシステムオブジェクトのFile.Moveで行い、
最後にディレクトリを列挙して削除していけばいいんだろうなという
ところはわかります。
しかし、フォルダをサブフォルダも含めてすべて舐めて、そこから
ファイルを移動していくというロジックに悩んでいます。
アドバイスいただけないでしょうか。
No.2ベストアンサー
- 回答日時:
この手のコードは 「FileSystemObject 再帰」 のキーワードでググればたくさんサンプルが見つかる。
Excel VBA の標準モジュールなどでステップ実行すると動きを確認できる。
ロジックとしては、、、
サブフォルダーが存在しなくなる最深フォルダーまで潜る。
そのフォルダーにあるファイル群を移動させる。
1階層上のフォルダーに戻る。
先ほどのフォルダーを削除する。
ってのを再帰処理で行う。
Const rootPath = "E:\test\"
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim rootDir
Set rootDir = fso.GetFolder(rootPath)
Call MoveFiles(rootDir)
' 引数としてフォルダー オブジェクトをもらう
Sub MoveFiles(aDir)
' 引数で得たフォルダー内にサブフォルダーがあれば再帰する。
Dim subDir
For Each subDir In aDir.SubFolders
Call MoveFiles(subDir) ' サブフォルダーで再帰処理
subDir.Delete ' 戻ってきたら (フォルダー内が空であるはずなので) フォルダーを削除する
Next
' 引数で得たフォルダー内のファイル群を移動させる。
Dim f
For Each f In adir.Files
f.Move(rootPath)
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ファイル一覧表を使ったファイルの移動 5 2022/08/10 15:37
- Visual Basic(VBA) outlook マクロが終了しません。 1 2022/09/02 11:14
- Excel(エクセル) エクセルのファイルが開かない 4 2022/04/22 15:07
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/10/26 17:14
- ソフトウェア フォルダ内の全サブフォルダ内のファイルパスをサブフォルダ毎に行を分けてリスト化したい 1 2022/11/13 10:27
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
- AJAX RPA(PowerAutomate)の実装について 1 2023/07/31 13:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
複数フォルダをまとめて移動するバッチ
Windows Vista・XP
-
サブフォルダー内のPDFファイルを別フォルダにコピーするVBA
Excel(エクセル)
-
沢山のフォルダにあるファイルを上の階層に出すには?
Windows Me・NT・2000
-
-
4
大量のフォルダからひとつのフォルダにファイルをまとめたい!
その他(ソフトウェア)
-
5
あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい
Visual Basic(VBA)
-
6
VBA フォルダ名に特定の文字を含むフォルダを別フォルダにコピーするコードを教えて下さい
Visual Basic(VBA)
-
7
VBAにおいて、ファイルの移動にMoveFileを使っていますが、
Visual Basic(VBA)
-
8
エクセル VBA ファイルをフォルダへ移動させる
その他(Microsoft Office)
-
9
サブフォルダ含むフォルダ内の全ファイルから指定文字列を含んだファイルの情報を一覧出力させたい
Visual Basic(VBA)
-
10
エクセルマクロで指定フォルダの下層フォルダにあるファイル全てを集計したいのですが、1階層下のフォルダ
Excel(エクセル)
-
11
ファイル名と同名のフォルダを自動作成して移動させる方法はありますか?
Access(アクセス)
-
12
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
13
多量のファイルをフォルダに自動振り分けするマクロを教えて下さい。
PowerPoint(パワーポイント)
-
14
ファイル名から該当フォルダへ移動
Visual Basic(VBA)
-
15
マクロ VBA ファイル名を連番でつけたいのですが
Access(アクセス)
-
16
FSO.CopyFileでのエラー無視方法
その他(Microsoft Office)
-
17
ファイル名を該当フォルダ内から検索して移動
その他(プログラミング・Web制作)
-
18
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
19
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
20
一つ上の、フォルダだけを消す方法ってありますか?
Windows Me・NT・2000
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAとJavaの関係は?
-
サブフォルダ内のファイルを全...
-
Program Files内に・・・
-
Visual C++ 2005 Express Editi...
-
Thunderbird 振り分けされなく...
-
ブラウザにIPアドレスを直打ち...
-
フォルダについて。
-
java auto updaterとは何でしょ...
-
謎のフォルダ「ドネュメント」
-
Avastをセーフモードで実行したい
-
フォルダのサムネイル画像
-
Cisco スイッチでのVLAN設定の...
-
ADのDC移行の手順を教えてください
-
Linuxのサーバで「df」コマンド...
-
CGIをオフラインローカルで動か...
-
Google Analyticsの携帯向け解...
-
写真や動画を保存する、これら...
-
マイピクチャのフォルダについ...
-
元のフォルダに矢印キーで帰りたい
-
大文字はできるだけ使わない方...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サブフォルダ内のファイルを全...
-
error RC2104について
-
C#でCSVファイルをリストビュー...
-
EXCELのSheetを自動更新できな...
-
VBA Bookの表示、非表示
-
フォルダ内検索
-
指定したフォルダ直下のファイ...
-
サクラエディタに使用できるvbs...
-
リストボックスに表示されたフ...
-
fgetsのfはどういう意味でしょ...
-
日本語プログラミング「なでしこ」
-
日付を指定しファイルを削除す...
-
エクセルVBAとJavaの関係は?
-
指定したもの以外の削除方法
-
IE6で横スクロールバーを消す...
-
顧客から返ってきたExcel Sheet...
-
拡張子のアイコンを取得
-
アイコンの不思議???
-
アンインストール中のファイル...
-
意味不明のアイコンとプログラ...
おすすめ情報