Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(dosyaAdresiveAdi)
msgbox f.DateCreated
buradaki kod dosyanın konum ve adını girdiğinizde dosyanın oluşturulma tarihini verir f.DateCreated ile aldığınız tarihe göe silme gerçekleştirilebilir