Kill file error

[gleamng]

Hi everyone, I hope you are all doing great.
Please help me out with this error code.
I tried using the kill command but it return "runtime error 70 - permission denied" , meanwhile the file i have the macro is also in the same folder and to be deleted as well at a particular date. Below is my code

Sub expiry()
Dim expiry as Date
Expiry = "26 Feb, 2023"
If Date > Expiry Then
Kill "D:\Google Drive\MSC\*.*"
End If
End Sub

 

[Joe4]

I don't think you can delete a folder if the file the VBA code is contained in is in a workbook in that same folder (that you are trying to delete)!
You usually need to be logged out of any files in the folder you want to delete.

Your best bet is to have this workbook with VBA code is some other folder than the one you are trying to delete!

 

[gleamng]

Thanks for your quick response.
Change of plans. I want the code to delete another opened workbook, but it need to close it without saving i.e D:\Google Drive\MSC\DataBase.xlsm

Sub expiry()
Dim expiry as Date
Expiry = "26 Feb, 2023"
If Date > Expiry Then
Workbooks ("D:\Google Drive\MSC\DataBase.xlsm"). Close
Kill "D:\Google Drive\MSC\DataBase.xlsm"
End If
End Sub

 

[gleamng]

I've been using kill command but it's not deleting the file

 

[MARK858]

Try changing

Expiry = "26 Feb, 2023"

to

Expiry = DateSerial(2023,  2, 26)

Obviously it will only work when your system date is later than 26 Feb, 2023