以下のような記述のVBSファイルを実行することで、
デスクトップのtxtファイルを消すことにしています。
---
Set objFso = CreateObject("Scripting.FileSystemObject")
ret = objFso.DeleteFile("C:\Users\test\Desktop\*.txt",True)
Set objFso = Nothing
---
できれば、全てのtxtファイルではなく、
「最終更新から48時間以上たったtxtファイルのみ削除」
としたいのですが、記述をどのように変更(もしくは加筆)すればよいでしょうか。
初心者質問になりご迷惑おかけします。
お力いただければ幸いです。
どうぞよろしくお願い致します。
こんな感じでしょうか。
Set fso = CreateObject("Scripting.FileSystemObject") target_folder = "C:\Users\test\Desktop" date_now = Now For Each file In fso.GetFolder(target_folder).Files If Right(file.Name, 4) = ".txt" Then If DateDiff("h", file.DateLastModified, date_now) > 48 Then file.Delete(True) End If End If Next
参考URL
上手く行けそうです。感謝いたします。
2017/04/21 03:21:02