Delete Files From Subfolders

[Delta Star]

I have a folder which contains a large number of subfolders, each of which contain various excel files.

Is it possible for a macro to run through each of the subfolders and delete the files automatically without deleting the actual folders?

 

[Richard Schollar]

Sure - how 'deep' is the subfolder structure? ie is it only one level down or will there be multiples? Will you want to delete all files in each subfolder level or just the bottom one?

The following will delete all xls files from the subfolders in SomeOtherFolder:

Sub Delete_Files()
Dim fso, fldr, subfldr, fl

Set fso = CreateObject("scripting.filesystemobject")

Set fldr = fso.GetFolder("C:\SomeFolder\SomeOtherFolder")

On Error Resume Next

For Each subfldr In fldr.SubFolders
    For Each fl In subfldr.Files
        If Right$(fl.Name, 3) = "xls" Then
            Kill fl.Path
        End If
    Next fl
Next subfldr

End Sub