VBAで作成日時によってフォルダの移動

いつもお世話になっております。
Excel 2007使用です。よろしくお願いします。

フォルダ売上報告フォルダ　
過去フォルダ

上記二つのフォルダがあり、売上報告フォルダの中には過去フォルダと色々な名前のフォルダが幾つかあります。
そこで作成日時が2週間以上たったフォルダは全て過去フォルダに移動したいのですが、そういったことは可能でしょうか？
フォルダの名前を指定してなら出来たのですが、日時で振り分けると難しく、またそこに残しておきたいExcelファイルなどもあります。
どなたかアドバイスよろしくお願いします。

売上報告フォルダのなか
過去フォルダ 4月1日(更新日時)
１月チョコレート　フォルダ　3月28日
２月クッキー　フォルダ 3月26日
富岡店　フォルダ 4月2日
志村屋　フォルダ 3月12日
履歴　Excelシート
計算　excelシート
PDF など
▪
▪
↓
売上報告フォルダのなか
過去フォルダ 4月1日(更新日時
富岡店　フォルダ 4月2日
履歴　Excelシート
計算　excelシート
PDF など

No.1 回答者： fujillin 回答日時： 2018/04/10 15:21

こんにちは

＞そういったことは可能でしょうか？
日時を判断できる基準さえはっきりしていれば可能だと思います。

＞フォルダの名前を指定してなら出来たのですが、日時で振り分けると難しく、～
振り分けたいのはフォルダのみで、フォルダ名は必ず日付（xx月xx日）で終わっているという意味なのでしょうか？
もしそうであるなら、正規表現などでフォルダ名から"\d\d*月\d\d*日$"に合うものを抽出すれば、日付部分を取り出せると思いますので、これで判断できるのではないでしょうか？
（日付が月日だけのようなので、年を跨ぐ場合の判断処理には注意が必要ですが…）

あるいは、まったく別の発想になってしまいますが・・・
FileSystemObjectを介してフォルダやファイルを取得すると、そのプロパティとして作成日、更新日などの属性を得ることができます。
もしも、こちらで判断しても良いのであれば、これを利用する方が簡単かも知れませんね。
https://msdn.microsoft.com/ja-jp/library/cc42812 …

この回答へのお礼

ありがとうございました！

お礼日時：2018/04/13 14:16

No.2 回答者： かわごえ 回答日時： 2018/04/10 16:01

日付を取得する為にファイル名フォルダ名の末尾を見ていた事はあります。

売上報告201804
├xxxx20180328.xlsx
└xxxx20180410.xlsx

エクセルの拡張子が３文字から４文字に増えた時にどうもこうも修正するのがめんどうでやめちゃったのですが
拡張子の文字数除けば末尾から６文字が年月、８文字が年月日などとしていました。
命名規則をしっかり統一しておく必要がありますけども、参考までに。。。

この回答へのお礼

ありがとうございました！

お礼日時：2018/04/13 14:16