Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
特定フォルダ内のサブフォルダを全てチェックし、指定したものを削除する方法について
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=10854#CommentId23575
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
TT
 (社会人)
投稿日時
2012/5/18 11:12:16
お世話になります。
標記の件につきまして、自己解決がどうしてもできませんでしたのでご教示いただけないでしょうか。
VBScriptを使用して、Aというフォルダに格納されているサブフォルダを全てチェック(検索)し、指定した条件に該当するものを削除したいのです。
条件は以下の通りです。
〇Aフォルダ直下には、Bフォルダ、Cフォルダ、Dフォルダ・Eフォルダ・Fフォルダが存在している。
〇B・Cフォルダ直下には「yyyy_mm_dd」(作成日日付)という名前でフォルダが作成されている。
〇Dフォルダ直下にはGフォルダ・Hフォルダが存在し、G・Hフォルダ直下に「yyyy_mm_dd」(作成日日付)という名前でフォルダが作成されている。
〇E・Fフォルダ直下にはファイルのみ存在し、フォルダは存在しない。
この条件の時、それぞれのフォルダ内にある「yyyy_mm_dd」(作成日日付)フォルダのうち今日の日付から90日以上前の作成日日付フォルダを削除したいのです。
ご教示いただきたいのは
サブフォルダ内のサブフォルダ、サブフォルダ内のサブフォルダ内のサブフォルダをチェックするロジック
「yyyy_mm_dd」(作成日日付)フォルダと今日の日付の差を求めて削除するロジック
上記の2点です。
なお、A~Hのフォルダは削除せずそのまま残しておきたいです。
質問する場が違うかもしれませんがご教示いただけますと幸いです。
よろしくお願いいたします。