たまっていくファイルを強制的に削除する方法

質問

D:\pdf　というフォルダがあり、中身はすべてPDFファイルです。
FAXで送られてくるデータをPDFとして転送するフォルダです。
ほっておくとものすごい量になってしまうため、定期的に削除しています。1週間分ぐらいあれば十分なので、これを、1週間前のPDFファイルを削除してくれるバッチ（？）があればと考えています。
あとは、タスクスケジューラーの実行で良いのではないかと思っています。
削除といっても、ゴミ箱に入るのでなく、ゴミ箱に残らない直接削除を希望します。
どなたか丁寧に説明していただける方いますでしょうか。
よろしくお願い致します。

回答No.1

pa-pa-pa · ベストアンサー

このソフトを使ってみてはいかがですか？

http://www.forest.impress.co.jp/article/2009/05/19/okiniiri.html

お礼

ご提示のソフトで解決しました。
助かりました。ありがとうございます！
（コードとかよくわからず、困っていました。）

回答No.5

rivoisu

2行目drlfilesをdelfilesに変更

補足

コンパイルエラー（２行目）になってしまいます。
エラー内容：文字が正しくありません。

回答No.4

rivoisu

コードを示さないのは不親切ですね
　　const PDFFolder = "D:\PDF"
　　drlfiles
sub delfiles()
　　Dim fso, f, fl, fc, flname ,fldate
　　dim today
　　today=now()
　　Set fso = CreateObject("Scripting.FileSystemObject")
　　Set f = fso.GetFolder(PDFFolder)
　　Set fc = f.Files
　　For Each fl in fc
　　　　fldate = fl.DateLastAccessed
　　　　daydif=datediff("d",fldate,today)
　　　　if daydif>7 then
　　　　　　　　fl.delete
　　end if
　　Next
End sub
昔書いたコードの一部を修正しました。
環境作るのが面倒なのでtestしていません。
バックアップとって使ってみてください。

回答No.3

rivoisu

VBSで
DateLastAccessedが今日の日付より7日以上前なら削除
というScriptを作ってタスクスケジューラーに登録

回答No.2

Peperoncino

D:\pdfの下にサブフォルダが無い事を前提として書きます。

cmd /c start /min DEL D:\pdf\*.pdf /q
たった1行タスクスケジュールに登録しておくだけで、ウィンドウを表示させることなく自動的に実行出来ると思います。

del - Windowsコマンド集：ITpro
http://itpro.nikkeibp.co.jp/article/Windows/20051025/223347/