Hi there,
I have a list of file names in Column A. Would anybody know a way that I could delete files in a specific folder with these file names?
There are hundreds of files so it would take me a long time to look them up and delete individually.
Thank you for your help
Kind regards
John
Re: looking up files and deleting
Hi John,
You could try something like the code below. The code has not been tested - given that it involves the deletion of files I strongly suggest that you test it first on some dummy data in a dummy directory.
Sub ByeBye()
Const strDir As String = "C:\Documents and Settings\Richie\My Documents\Excel\Tests\"
'the path to the directory containing the files
Dim wsFiles As Worksheet
Dim rngFiles As Range, rngCell As Range
Set wsFiles = ThisWorkbook.Worksheets("Sheet1")
Set rngFiles = wsFiles.Range("A1:A250")
'the worksheet and range contaning the list of files
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
'speed-up process
For Each rngCell In rngFiles
Kill strpath & rngCell.Value
Next rngCell
'loop through the file names
With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With
'reset
End SubRe: looking up files and deleting
Thanks Richie, I will try this.
kind regards
John
Don’t have an account yet? Register yourself now and be a part of our community!