Delete an entire folders contents (or just Excel files)

[DejaVu]

Is it possible to delete the entire contents of a folder with the VBA?
I'd like to be able to delete either all of the files out of a folder
or delete all the Excel files out of a folder. I know I can use
Code:
--------------------
Kill "C:\Test Folder\TestBk.xls"
--------------------


I assume that I can use some sort of loop to find all the files in a
folder and delete them, but is it possible to Kill an entire folder's
contents???

TIA
DejaVu

 

[Guest]

Use the FileSearch Object.
The following is from VBA help:

With Application.FileSearch
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
kill .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

 

[Ron de Bruin]

You can use this to delete all the files in the folder

Kill "C:\Test Folder\*.*"

Or xls files

Kill "C:\Test Folder\*.xls"

 

[DejaVu]

Thank you both for the quick response. Both solutions appear to
accomplish the task I was looking for. Ron de Bruin - I thought it
might be easier than what I was putting into it, but I had no idea it
would be one line!! Thanks again.

DejaVu