VBS Script - Recursively Delete all Files in a Folder

This script deletes all files under a particular folder, in this example c:\test.

set objFSO = createobject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder("C:\test")

for each folder in objFolder.SubFolders
objFSO.DeleteFolder folder.path, True
next

for each file in objFolder.Files
objFSO.DeleteFile file.path, True
next