[حل شده] حذف فایل خاص با تابع kill

[saeid_f]

با سلام
من داخل پوشه test دو تا فایل دارم که یکی با فرما xls و دیگری xlsm هست.
وقتی دستور زیر رو اجرا می کنم هر دو را پاک میکنه در صورتی که میخوام فقط فایل با فرمت xls پاک بشه.
ممنون

Sub ExampleKill()
   
KILL ("C:\test\*.xls")

End Sub 

[saeid_f]

پیدا کردم.

sub kill file ()
  Dim objFSO, objFolder, objFile As Object: Dim saeid, fahimi
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\testi\")
fahimi = objFolder & "\"
For Each objFile In objFolder.Files
saeid = objFile.Name
If Right(saeid, 4) = ".xls" Then Kill (fahimi & saeid)
Next objFile
end sub