I'd like to delete all files in a folder

[brucesw]

Hello World,

I havd a folder "K:\UW\Reports\Credit report\" that contains about 60 workbooks. Each week I replace the folder contents with new reports, the number of reports vary each week. I don't want to leave old reports there so if a report is no longer needed the DisplayAlerts=False code won't cut it.

I had a look at help but cannot figure out the correct code. I guess the old DOS equivalent would be "del K:\UW\Reports\Credit report\*.*" or similar.

Can you help? Thanks in advance,

Bruce

 

[Tom Urtis]

To do this is an irreversible act, so make absolutely sure that's what you want. Hans Herber wrote this one, it's on the 1900 examples CD being marketed through this site.

Enter the path in cell B1 and run this:

Sub DeleteFiles()
Dim sPath As String
Dim iCounter As Integer
sPath = Range("B1").Value
If MsgBox("Do you really want to delete the files?", _
vbCritical + vbYesNo) = vbNo Then Exit Sub
With Application.FileSearch
.LookIn = sPath
.Filename = "*.xls"
.Execute
For iCounter = 1 To .FoundFiles.Count
Kill .FoundFiles(iCounter)
Next iCounter
End With
End Sub