古いバックアップを自動削除
2025年12月20日
こんにちは
ハロー！パソコン教室イオンモール木更津校のわたなべです。
今回のテーマ
＜古いバックアップを自動削除＞
バックアップが増えすぎる前にフォルダを自動で整理しよう！！
保存する旅のコピーが残るので、安心ですが、バックアップが増えてくると、、、
容量ばかりが増えてきますよね。
前回は「日付をつけて自動保存するマクロ」を紹介しました。
そこで今回はその続きとして、増えていくバックアップを「自動で整理してくれるマクロ」を紹介します。
一定日数立ったファイルは、自動で削除する仕組みです。
・1週間前のファイルはもういらない？
・1ヶ月経過したものは消したい？
難しいコードは使いません、DirｒとKillだけでかけるので、
初心者の方にもおススメです。
Sub 古いバックアップを自動削除()
Dim 保存先 As String
保存先 = “C:\Backup\” ‘バックアップフォルダ
Dim 全保存先フォルダ As String
全保存先フォルダ = Dir(保存先 & “*.*”) ‘フォルダ内のファイルの取得
Do While 全保存先フォルダ <> “”
‘作成日が1週間前を削除
If FileDateTime(保存先 & 全保存先フォルダ) < Date – 7 Then
Kill 保存先 & 全保存先フォルダ
End If
全保存先フォルダ = Dir ‘次のファイルへ
Loop
MsgBox “古いファイルを整理しました”
End Sub
次回もお楽しみに！！
| 住所 |
〒292-0835 千葉県木更津市築地1-4 イオンモール木更津１Ｆ （A2入口徒歩1分） |
|---|---|
| 電話 | 0438-38-3586 |
| 受付時間 |
月火木金 10:00～20:30 日曜日祝日 10:00～18:30 水曜日 10:00～16:30 土曜日 10:00～14:30 |
 |
 |
