vba to delete all files in a folder containing certain text

[cjcass]

Hi,
I have the code below that deletes all files in a folder with a specific file name. How can I adapt it so it deletes all files that contain a specific text string?
So in the example, my files all end in 'Summary File v1.pptx' (eg. 'London Summary File v1.pptx', Manchester Summary File v1.pptx' etc..) so I want to find them all and delete them - any ideas?
Thanks.

Private fso As Object
Public Sub DeleteFiles()


Set fso = CreateObject("Scripting.FileSystemObject")
RecurseDelete "C:\Users\Steve\Desktop\2018 Data\", "Summary File v1.pptx"


End Sub
Private Sub RecurseDelete(currentFolder As String, fileToDelete As String)


Dim thisFolder As Object
Dim subFolder As Object


If fso.FileExists(currentFolder & fileToDelete) Then fso.DeleteFile currentFolder & fileToDelete, True


Set thisFolder = fso.GetFolder(currentFolder)
For Each subFolder In thisFolder.subFolders
    RecurseDelete subFolder.Path & "\", fileToDelete
Next subFolder


End Sub

 

[alansidman]

try using a wildcard

RecurseDelete "C:\Users\Steve\Desktop\2018 Data\", "[COLOR=#ff0000]*[/COLOR]Summary File v1.pptx"

 

[VBA Geek]

one line of code

VBA.Kill [COLOR=#333333]"C:\Users\Steve\Desktop\2018 Data\*Summary File v1.pptx"[/COLOR]

 

[cjcass]

Hi Both,
Thanks for your responses.
Tried the RecurseDelete line, but it didn't work
Tried the Kill approach and it works but I need it also to kill files in any of the subfolders of '2018 Data' - can this be achieved using Kill?
Regards,

 

[VBA Geek]

Hi Both,
Thanks for your responses.
Tried the RecurseDelete line, but it didn't work
Tried the Kill approach and it works but I need it also to kill files in any of the subfolders of '2018 Data' - can this be achieved using Kill?
Regards,

you can get a list of all your files ending with Summary File v1.ppt in all subfolders by doing:

Dim myFiles As Variant
myFiles = Split(CreateObject("WScript.Shell").EXEC("WHERE /R ""C:\Users\Steve\Desktop\2018 Data"" ""*Summary File v1.pptx""").StdOut.ReadAll, vbNewLine)

myFiles will be an array containing all the files paths

 

[cjcass]

ok, but what would the full code be to kill them all?
thanks