人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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

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

●質問者: yoshifuku
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● a-kuma3
●100ポイント ベストアンサー

こんな感じでしょうか。

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


yoshifukuさんのコメント
上手く行けそうです。感謝いたします。
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ