VBA to delete specific files from a specific path listed within a worksheet in excel?

[dougmarkham]

Hi Folks,

I am looking for VBA code to find file names listed in a Worksheet in range A2 downward e.g., XYZ.pdf located in the filepath listed in column B2 downwards and then to delete those files (killfile).

I have found multiple examples of VBA to kill files e.g., all files in a folder, all files of a specific type in a folder, or all files containing some element in their filename; however, I cannot find anyone who has published code for killing specific files listed in a worksheet with cognate specific path.

Does anybody know how to do this and be willing to share this code?

Kind regards,

Doug.

 

[steve the fish]

Put some filenames with extensions in A2 down then run this. Be careful that you do actually want them deleted!!!

filepath = ThisWorkbook.Path 'for example, target folder for deleting files change as appropriate
lr = Range("A" & Rows.Count).End(xlUp).Row

For Each c In Range("A2:A" & lr)
    If Len(c) > 0 Then
        If Len(Dir(filepath & "\" & c.Value)) > 0 Then
            Kill filepath & "\" & c.Value
        End If
    End If
Next

 

[dougmarkham]

Put some filenames with extensions in A2 down then run this. Be careful that you do actually want them deleted!!!

filepath = ThisWorkbook.Path 'for example, target folder for deleting files change as appropriate
lr = Range("A" & Rows.Count).End(xlUp).Row

For Each c In Range("A2:A" & lr)
    If Len(c) > 0 Then
        If Len(Dir(filepath & "\" & c.Value)) > 0 Then
            Kill filepath & "\" & c.Value
        End If
    End If
Next

Hi Steve,

Steve, that is an awesome bit of code, thank you!
I just saved it into the folder my files resided in, ran the VBA and instantly all the files listed in Column A were deleted.
Very elegant piece of code, considering the length of some killfile VBA code I've seen.

Many thanks again,

Doug.