Macro to delete specific files in C:\test

[howard]

I have setup up some files names with wilcards in Col O on sheet data

eg

eWhs*.*

InterestXls.Xls

The InterestXls.Xls is being deleted but nome of the eWhs*.* files eg eWhs_sales_Inquiry.xlsx, eWhs_sale_Inquiry (1).xlsx, eWhs_Statement_Inquiry.xlsx, eWhs_Statement_Inquiry (2).xlsx etc

 Sub DeleteFiles()
Dim Filepath As String

Filepath = "C:\test"
Sheets("data import").Select

LR = Cells(Rows.Count, "O").End(xlUp).Row

For Each c In Range("O2:O" & LR)
    If Len(c) > 0 Then
        If Len(Dir(Filepath & "\" & c.Value)) > 0 Then
            Kill Filepath & "\" & c.Value
        End If
    End If
Next
 End Sub

It would be appreciated if someone could assist me

 

[EFANYoutube]

Hi howard
Your code looks good but you just need to add 1 to your LR & make sure your first file name is in O2 as you are checking the range from row 2

 Sub DeleteFiles()
Dim Filepath As String

Filepath = "C:\test"
Sheets("data import").Select

LR = Cells(Rows.Count, "O").End(xlUp).Row + 1

For Each c In Range("O2:O" & LR)
    If Len(c) > 0 Then
        If Len(Dir(Filepath & "\" & c.Value)) > 0 Then
            Kill Filepath & "\" & c.Value
        End If
    End If
Next
 End Sub
[code]

 

[howard]

Thanks for the reply

I had the first file in O1 and changed

 For Each c In Range("O2:O" & LR)  

to


For Each c In Range("O1:O" & LR)

I only picked this up after you replied and I checked my code again