search all my folders find specific documet and delete

[rjmdc]

hi
i need some help
i need to reveiw all files in a specific file path
find any document ending with: (Report Date 11.14.2024).xlsx and DELETE it
what would the code be?

 

[ExcelToDAX]

How about:

Sub DeleteFileStr()
    Dim fldrPath As String
    Dim fileStr As String
    Dim filePath As String
    Dim file As String
    
    fldrPath = "C:\Your\Folder\Path\" ' make sure to include '\' at the end
    fileStr = "(Report Date 11.14.2024)"
    file = Dir(fldrPath & "*.*")
    Do While file <> ""
        If InStr(file, fileStr) > 0 Then
            filePath = fldrPath & file
            Kill filePath
        End If
        file = Dir
    Loop
End Sub

 

[rjmdc]

hi
where does this get placed? i started a new book and create the code and pressed run but nothing happened

 

[JEC]

This would do too (only change your folderpath)

Sub jec()
Kill "C:\Users\xxx\Downloads\*(Report Date 11.14.2024).xlsx"
End Sub

 

[rjmdc]

hi
i am sorry
file name ENDS with (Report Date 11.14.2024).xlsx
it is not the full file name

 

[MikeVol]

rjmdc​

fldrPath = "C:\Your\Folder\Path\" ' make sure to include '\' at the end

???

 

[rjmdc]

this code isnt working
the file name ends with (Report Date 11.14.2024).xlsx
the file has a whole long name before that
how do i search my folders and kill thaose files

 

[mumps]

i need to reveiw all files in a specific file path

What is the specific file path? Are there any subfolders involved? Post a few examples of the full file names.

 

[rjmdc]

base folder
"M:\AALL CONSUMERS\_AALL FI\4__BUDGETS APPROVED\
folder names ex in this folder
there are a few hundred folders
"M:\AALL CONSUMERS\_AALL FI\4__BUDGETS APPROVED\last name, first name(QU-broker TABS 123456)"
search for this folder in the folder - folder 51
"M:\AALL CONSUMERS\_AALL FI\4__BUDGETS APPROVED\last name, first name(QU-broker TABS 123456)\51_Payments"
kill any file that ends in (Report Date 11.14.2024).xlsx</

 

[rjmdc]

tahnk you all
i found a code previously used in my agency that worked