Dim dfile
Set oArgs = Wscript.Arguments

If oArgs.Count <> 2 Then
Wscript.Echo "No file were deleted"

Wscript.Quit 1
End If

If Not IsDate(oArgs(0)) Then
Wscript.Echo "Error: The [date] parameter must be a date value."
Wscript.Echo "       Instead it was '" & oArgs(0) & "'."
Wscript.Quit 1
End If

dFile = (oArgs(0))

What I would like to do is to have it look at the current date, then make
dfile = current date - 30 days, in order to delete files older than 30 days.
Anyone have any ideas?

Mitch

begin 666 Mitchell L Belew.vcf
M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..D)E;&5W.TUI=&-H96QL.TP-

M-C W.0T*5$5,.TA/344[1D%8.C4Q,RTU,CDM-C W.0T*0412.TA/344Z.SLT


M(%)U;B!4<F%I;" C,STP1#TP04-I;F-I;FYA=&DL($]((#0U,C4U/3!$/3!!
M55,-"D5-04E,.U!2148[24Y415).150Z;6)E;&5W0&9U<V4N;F5T#0I2158Z

`
end

dt = date() - 30
msgbox dt

dt = dateadd("m",-1,date())
msgbox dt

dt = #12/31/1999# - 30
msgbox dt

dt = dateadd("m",-1,#12/31/1999#)
msgbox dt

--
Michael Harris

  At the present, I have to pass the date to the VBS. The script is as
  follows:

  Dim dfile
  Set oArgs = Wscript.Arguments

  If oArgs.Count <> 2 Then
  Wscript.Echo "No file were deleted"

  Wscript.Quit 1
  End If

  If Not IsDate(oArgs(0)) Then
  Wscript.Echo "Error: The [date] parameter must be a date value."
  Wscript.Echo "       Instead it was '" & oArgs(0) & "'."
  Wscript.Quit 1
  End If

  dFile = (oArgs(0))

  What I would like to do is to have it look at the current date, then make
  dfile = current date - 30 days, in order to delete files older than 30 days.
  Anyone have any ideas?

  Mitch

otherwise
        dfile = date - 30

might also work (although it begs the question why have a dateadd
function ?)

They both work on my machine.

Steve