VBScript: Delete all files by a given fileMask

gistfile1.vb

'// *****************************************************************
'// Delete all files by a given fileMask
'// ~~
'// Example: 
'//		DeleteFiles("C:\temp\*.txt")
'//		or
'//		DeleteFile("*.log") => will delete all .log files in the 
'//		current folder
'// *****************************************************************
Sub DeleteFiles(ByVal fileMask)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Call objFSO.DeleteFile(fileMask) 

Set objFSO = nothing

End Sub