excel vba delete all files except name files in folder site

[KlausW]

Hi

I am using this VBA-code to Kill all files in a folder.

Kill "C:\Users\k-wit\OneDrive\F-div\Rejseafregning\Bilag\*.*"

It works. But I shout like VBA to leave this fil B1.PNG

back every time.

Someone who can help.

Regards Klaus W

 

[davesexcel]

if you are looping through the files, checking the file name before deleting the file would by an idea.

can you show the code you are using to loop through the files?

 

[KlausW]

if you are looping through the files, checking the file name before deleting the file would by an idea.

can you show the code you are using to loop through the files?

I use this code.

Sub Del()

   Kill "C:\Users\k-wit\OneDrive\F-div\Rejseafregning\Bilag\*.*"
  
    End Sub

 

[KlausW]

I found this code here on MrExcel an it work.

Sub Del()


    Dim path As String
    path = Range("I3")
    If Right(path, 1) <> "\" Then
        path = path & "\"
    End If
    
    Dim exceptedFile As String
    exceptedFile = "B1.png"
    
    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 "Bilag slettet!", vbExclamation

 
   'Sheets("Stamdata").Select
  ' Mail_workbook_Outlook
   
   End Sub