How to delte multiple file?

[Jackomcnabb]

Hello here is a script I wrote to remove all the files from a Folder (I hope it helps):

Code:

Set fso=CreateObject("Scripting.FileSystemObject")
CleanPath="C:\Jon_Test_Folder\DeleteFiles\"
FileCount=0
    For Each file In fso.GetFolder(CleanPath).Files
        FileCount=FileCount+1
        Reporter.ReportEvent micDone, "File_Deleted", " '"&File&"': was deleted "
        file.delete
    Next
Reporter.ReportEvent micDone, "Files_Deleted", " There where '"&FileCount&"' Files deleted from '"&CleanPath&"' "