パソコン初心者からマイクロソフトオフィススペシャリスト等の資格取得まで幅広く個別指導

こんにちは。

ハロー！パソコン教室　イオンモール木更津校のマルです。

スマホで手軽にお小遣い稼ぎ＆不用品整理してみませんか？

『イチからはじめる メルカリ講座』をご案内します。

・売れる出品のための準備

・出品後の対応方法

・困ったときの解決方法

上記の3つを軸に安心して商品を売買するためのノウハウを解説します。

この機会に是非メルカリの使い方・楽しみ方を学習しませんか。

お問合せお待ちしております。

こんにちは。
ハロー！パソコン教室　イオンモール木更津校です。
２０２５年１２月３１日(水)～２０２６年１月３日(土)までお休みさせていただきます。
２０２６年１月４日(日)１０時より営業いたします。

本年もご愛顧いただき、誠にありがとうございました。
２０２６年もどうぞよろしくお願いいたします。

こんにちは

ハロー！パソコン教室イオンモール木更津校のわたなべです。

今回のテーマ
＜古いバックアップを自動削除＞

バックアップが増えすぎる前にフォルダを自動で整理しよう！！
保存する旅のコピーが残るので、安心ですが、バックアップが増えてくると、、、
容量ばかりが増えてきますよね。

前回は「日付をつけて自動保存するマクロ」を紹介しました。
そこで今回はその続きとして、増えていくバックアップを「自動で整理してくれるマクロ」を紹介します。
一定日数立ったファイルは、自動で削除する仕組みです。
・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

次回もお楽しみに！！