Delete files in all subfolders

[GDM69]

Hi Folks:

How can I delete all *.txt files in the main folder C:\Gennex and all its subfolders (several layers). I use excel 2003.

 

[BenMiller]

Why don't you search .txt in windows explorer when you're open to that folder then highlight all results and delete them?

 

[Leith Ross]

Hello GDM69,

There are 2 macro here. One checks all the files in the parent folder and subfolders. If the file has a ".txt" extension then it is deleted.

The second macro "Run" starts the first macro and supplies it with the parent folder path. Here is the code.

' Thread:  http://www.mrexcel.com/forum/showthread.php?t=601024
' Poster:  GDM69
' Written: December 23, 2011
' Author:  Leith Ross

Sub DeleteTextFiles(ByVal FolderPath As String)

    Dim File As Object
    Dim Folder As Object
    Dim FSO As Object
    Dim SubFolder As Object
    
        
            Set FSO = CreateObject("Scripting.FileSystemObject")
            Set Folder = FSO.GetFolder(FolderPath)
            
                For Each File In Folder.Files
                    If LCase(File.Name) Like "*.txt" Then
                       File.Delete
                    End If
                Next File
                
                For Each SubFolder In Folder.SubFolders
                    DeleteTextFiles SubFolder
                Next SubFolder
                
End Sub

Sub Run()

    DeleteTextFiles "C:\Gennex"
    
End Sub

 

[GDM69]

Many many thanks Leith Ross for the code and also the explanation.

 

[Leith Ross]

Hello GDM69,

You're welcome. Happy Holidays.