I want to delete all excel files from Particular folder. But I don’t want to delete 2 excel files from same folder (1.xls & 2.xls). I am using following vba code but its works for only one excel file.
Dim fName As String
fName = Dir("C:\Users\S\Desktop\A\*.*")
Do While fName <> "" & ""
If fName <> "1.xls" Then 'or .txt or .csv or whatever
Kill "C:\Users\S\Desktop\A\" & fName
End If
fName = Dir
Loop
Dim fName As String
fName = Dir("C:\Users\S\Desktop\A\*.*")
Do While fName <> "" & ""
If fName <> "1.xls" Then 'or .txt or .csv or whatever
Kill "C:\Users\S\Desktop\A\" & fName
End If
fName = Dir
Loop