Excel Delete Files in Folder with VBA

[animas]

I need to detele all files except FileA inside a folder using VBA.

How to do this?

 

[xld]

Dim fName As String

    fName = Dir("C:\test\*.*")
    Do While fName <> ""
    
        Kill "C:\test\" & fName
        fName = Dir
    Loop

 

[animas]

how can i keep FILEA undeleted while deleting all other files?

 

[jim may]

This looks more correct...(right?)

Do While fName <> "FileA"

 

[xld]

how can i keep FILEA undeleted while deleting all other files?

Dim fName As String

    fName = Dir("C:\test\*.*")
    Do While fName <> ""
    
        If fName <> "fileA.xls" Then'or .txt or .csv or whatever

            Kill "C:\test\" & fName
        End If

        fName = Dir
    Loop

 

[animas]

thanks. nicely working.