How to Delete All excel Files from Folder except two Excel Files

[swarupa]

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

 

[yky]

If fName <> "1.xls" and fName <> "2.xls" then

 

[swarupa]

Thanks Its work. Thanku thanku very much

 

[yky]

Thanks for the feedback and glad to be able to help.