I am trying to delete some specific PowerPoint files which are in a specific folder through following macro. But when running the code, it gives this error”File not found” on the line “Kill MyFiles”. As the attachment shows, the PowerPoint files are in the mentioned folder and by utilizing a MsgBox and clicking on the line which the error occurs, I have ensured that the code identifies the files but, for a unknown reason, it fails to delete them. Can you give me some guides on this issue?

Option Explicit
Sub deletepowepoint()

Dim MyFiles As String

MyFiles = Dir("D:\kalantari\miscellaneous\dailyreport01\*.pp tx")
Do While MyFiles <> "sample.pptx"

Kill MyFiles
MyFiles = Dir
Loop
End Sub

Attached Images

Capture01.PNG (103.4 KB, 20 views)