Snasui Excel Forum

Code: Select all

Sub DeletePDF()
   Dim objFSO, fso
   Dim rs As Range
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   Set rs = Sheets("Sheet1").Range("I8")
   Set mainFolder = objFSO.GetFolder("D:\SavePDF\")
   For Each sFold In mainFolder.subfolders
      For Each myFile In sFold.Files
         If myFile.Name Like rs & ".pdf" Then
            myFile.Delete
         End If
      Next
   Next
   
   Set objFSO = Nothing
   Set mainFold = Nothing
End Sub