Thread: Deleting Files Using FSO

The Folders object has a SubFolders property.

Thanks Stephen,

Any idea how i would work that into my macro?

Does your code work as is? Why is it a function? Try this:

Code:

Sub DeletePDFS()

Dim FSO As Object, file As Object, folder As Object, SubFolder As Object, s As String, FolderFile As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set folder = FSO.GetFolder("H:\VBA test\")
For Each file In folder.Files
    FSO.DeleteFile folder.Path & "\*.xls"
Next file
For Each SubFolder In folder.subfolders
    For Each FolderFile In SubFolder.Files
        FSO.DeleteFile FolderFile.parentfolder & "\*.xls"
    Next FolderFile
Next SubFolder

End Sub

Thanks for you help Stephen but that doesn't work either.

It will delete the files in

Code:

Set folder = FSO.GetFolder("C:\Documents and Settings\c.connor\My Documents\deletePDFS\filesToDelete\")

But doesn't touch any files of subfolders within there.

Thanks again

Try adding first and last lines below:

Code:

On Error Resume Next
    FSO.DeleteFile folder.Path & "\*.xls"
    On Error GoTo 0