Delete all files in folder Except one

[alsharif]

Greetings,

Seeking your help for VBA code that I can use to delete all files from different types in folder path " C:\Users\alshas\Desktop\Archive" and keep only one file which is named "Final.xlsx"

Thank you in advance

 

[Tetra201]

See if the following code works for you:

Sub DelButOne()
    Dim PName As String, FName As String
    PName = "C:\Users\alshas\Desktop\Archive"
    FName = "Final.xlsx"
    Shell "cmd /C cd """ & PName & """ && attrib -A *.* && attrib +A """ & FName & """ && del /Q /F /A:-A *.*"
End Sub

Caution: Please test it on a non-critical folder.

 

[alsharif]

thanks for help , but actually it did not work.

 

[Domenic]

Try . . .

Option Explicit

Sub DeleteAllFilesExceptOne()

    Dim path As String
    path = "C:\Users\alshas\Desktop\Archive\"
    If Right(path, 1) <> "\" Then
        path = path & "\"
    End If
    
    Dim exceptedFile As String
    exceptedFile = "Final.xlsx"
    
    Dim currentFile As String
    currentFile = Dir(path & "*.*", vbNormal)
    
    While (Len(currentFile) > 0)
        If LCase(currentFile) <> LCase(exceptedFile) Then
            Kill path & currentFile
        End If
        currentFile = Dir
    Wend
    
    MsgBox "Completed!", vbExclamation
    
End Sub

Hope this helps!

 

[Tetra201]

... it did not work.

First of all, this ^^^ is not particularly helpful for troubleshooting.

Second of all, the code offered in Post #2 has been tested to work under Win 7 / Excel 2010 and under Win 10 / Excel 365.