質問: 複数の不特定のサブフォルダに保存されているファイルを一括コピーしたい vbaの初心者です。 一日に数回、取引先に見積もりを送り、その元ファイルを送信時に作成したフォルダに保存しています。これらファイルを送信後に、バックアップフォルダにコピーしたいのです。 フォルダ構成:「」がフォルダ名 「年」(固定) 「処理日時」(複数、1日に3~4回、日時は不特定) 「完了」(固定 複数ある処理状況フォルダの内の1つ) 「取引先名」(複数、ファイル名は不特定) 見積ファイル(複数作成される) 例:2018\0801_1445\完了\○○社\〇〇社_商品a_0801.xlsx、〇〇社_商品b_0801.xlsx、... 複数保存されている処理日時フォルダのうち、作成日時が最新のフォルダ内の「完了」フォルダ内にある全ての取引先の全ての見積ファイルを所定のバックアップフォルダに、ごっそりコピーしたいのです。 上記の例では、最後に作成されたのが「0801_1445」フォルダであり、その中に5社分の取引先別のフォルダがあり、それぞれに3商品の見積もりファイルが保存されているとしたら、合計15ファイルをバックアップフォルダーにコピーする、という処理です。 ネットで調べて、dir関数の再帰処理でサブフォルダを巡回するようなロジックを組んでみましたが、どうしてもうまく行きません。 本来であれば、ファイルの出力プログラムを改修すれば良いのですが、当方にプログラムの著作権が無いため、このような後付けの処理が必要になっています。 よろしくお願いいたします。
回答: 疑問なのですが 1.vbaでの実現が必須なのでしょうか? こういうのはバッチファイル等で作成してダブルクリックで実行するほうが手軽だと思います。 2.バックアップフォルダ以下のフォルダ構成は? ・元の構成を維持? ・バックアップフォルダ直下にファイルのみを一律に並べる? ・その他