Delete type (xls) specific file in folder

Hi

I am using Kill "[folder directory]" & "*.xls" to delete all the .xls type file in the folder but the code also delete file type .xlsx and .xlsm

Below are my code.

Please help. Thank you.

Sub ConvertXlsToXlsx()

Application.ScreenUpdating = False

Dim strPath As String
Dim strFile As String
Dim wbk As Workbook
' Path must end in trailing backslash
strPath = Range("Convert_Location") & "\"
strFile = Dir(strPath & "*.xls")
Do While strFile <> ""
If LCase(Right(strFile, 3)) = "xls" Then

Set wbk = Workbooks.Open(Filename:=strPath & strFile)

If wbk.HasVBProject Then
wbk.SaveAs Filename:=strPath & strFile & "m", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled
Else
wbk.SaveAs Filename:=strPath & strFile & "x", _
FileFormat:=xlOpenXMLWorkbook
End If
wbk.Close SaveChanges:=False
End If
strFile = Dir

Loop

On Error Resume Next
Kill strPath & "*.xls"
On Error GoTo 0

MsgBox "This VBApp has completed its task." & vbNewLine & vbNewLine & "Please find the converted file(s) in the same folder."

End Sub

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

Ok thanks. Will do next time.

Originally Posted by :) Sixthsense :)

Refer the below link:-

https://stackoverflow.com/questions/...fied-extension

Thanks a lot I got my own solutions.