VBSファイルの記述の仕方で質問致します。


以下のような記述のVBSファイルを実行することで、
デスクトップのtxtファイルを消すことにしています。
---
Set objFso = CreateObject("Scripting.FileSystemObject")
ret = objFso.DeleteFile("C:\Users\test\Desktop\*.txt",True)
Set objFso = Nothing
---

できれば、全てのtxtファイルではなく、
「最終更新から48時間以上たったtxtファイルのみ削除」
としたいのですが、記述をどのように変更(もしくは加筆)すればよいでしょうか。

初心者質問になりご迷惑おかけします。
お力いただければ幸いです。
どうぞよろしくお願い致します。

回答の条件
  • 1人1回まで
  • 13歳以上
  • 登録:2017/04/20 08:25:23
  • 終了:2017/04/21 03:21:14

ベストアンサー

id:a-kuma3 No.1

a-kuma3回答回数4621ベストアンサー獲得回数19562017/04/20 10:13:49

ポイント100pt

こんな感じでしょうか。

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

id:miku1973

上手く行けそうです。感謝いたします。

2017/04/21 03:21:02

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません