How to delte multiple file?

[Anug]

Code:

Dim fso Set fso = CreateObject("Scripting.FileSystemObject") if fso.fileExists("C:\Folder1\Folder2\file.doc")Then fso.DeleteFile("C:\Folder1\Folder2\file.doc") End if

with the help of above code i am able to delete a particular file in a folder.
But suppose in folder2 there are 3-4 doc file with different name and i want to delete them what should i do for this?

[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&"' "