vba如何删除刚关闭的文件,正式.pptm是刚打开并关闭的文件！

Sub OnSlideShowTerminate()
Dim a As String

a = Application.ActivePresentation.FullName

MsgBox “Good bye, and take care!”

ActivePresentation.Close

Shell “cmd /c del C:\Users\l\Desktop\正式.pptm”
Application.Quit
End Sub