How to delete all the file in a folder from the code?

  • Thread starter Thread starter ana
  • Start date Start date
A

ana

Hi ,

I need to delete all the files in a floder from the
code ... how can I do that?

thanks
ana
 
ana,

Change the folder path/name in the macro below.

HTH,
Bernie
MS Excel MVP

Sub KillAllFiles()
Dim i As Integer
With Application.FileSearch
.NewSearch
.LookIn = "C:\Excel\Delete These"
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Kill .FoundFiles(i)
Next i
End If
End With
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

SUMIFS error 1
The letters in Delete Items floder and Junk E-mail cannot be delet 2
List equivalent data from two columns 1
Save data from Notebook: copying to the USB stick using Linux and the command line 0
problem trying to unzip from the code 2
Need a macro to alert me when the value of a formula in another sheet changes 1
Question about Access selective function 2
I have 2 copies of local folders how do I elimate one of them. 2

Back
Top