vbs to delete certain file types

[kss1133]

I have this vbs file that I have setup on a job to run at 2am.

DeleteFile "c:\test\*.txt"

function DeleteFile(WhatFile)
on Error Resume Next
dim fso
set fso=createobject("Scripting.Filesystemobject")
fso.DeleteFile(WhatFile)
End Function

I want to be able to set this up so I can pass the folder and file path into it.
Can someone help me out, I have tried many variations but I think I am setting the job wrong.

Thanks.

 

[PHV]

Have a look at the WScript.Arguments collection

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[barny2006]

try this:
whatfile = inputbox ("enter file name and pass")

 

[mrmovie]

If Wscript.Arugments.Count = 1 Then
strPassed = Wscript.Argument.Item(0)
End If

'i prefer the named arguments
'get the source file
If Wscript.Arguments.Named.Exists("source") Then
strSourceFile = WshShell.ExpandEnvironmentStrings(Wscript.Arguments.Named.Item("source"))
End If