Date Substraction

[ariefk]

I need to delete file that's older than 3 days, my first step is to substract the file's date. Somebody has suggestion on this ?. Anyway, here's my questionable lines. That's resulted unpredictable number at the end.

Dim fso, f, d, f_age, dulu, skr, hasil
f_age=0
Set fso = CreateObject("Scripting.FileSystemObject&quot
Set f = fso.GetFile("TECHNOTE.TXT&quot
dulu = Isdate(f.DateCreated)
skr = now()
WScript.Echo "Created: " & f.DateCreated
WScript.Echo "Now: " & skr
f_age = skr - f.DateCreated
WScript.Echo "Age : " & f_age

 

[JohnYingling]

See DateDiff
lngDays = Datediff("d",date1,date2)

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript