Delete in subfolders except one file.

[KlausW]

Hi everyone

I am using this VBA code to delete PNG files in a subfolder.
It won't even though the subfolder address is in I3. And look like this D:\DNBR 2025\Rejseafregning\Bilag
Can anyone help.

Any help would be appreciated

Best regards Klaus W

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

 
 
   
   End Sub

 

[KlausW]

I found the solution myself. Here at Mr. Excel

Delete all files in folder Except one

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

www.mrexcel.com

 

[Burrgogi]

Hi KlausW, you don't need Excel for that. You can easily accomplish the same thing using a DOS batch file. Just place the shortcut for it on your desktop and run it whenever you need it.