Problem deleting a file using VBA

See more:

VB6

VBA

Below is the code how i save a file using excel VBA.

ActiveWorkbook.SaveAs Filename:="C:\Temp\Test.xlsx", FileFormat:=xlNormal, _
   Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
   CreateBackup:=False

After this i will call a library which will zip and save to database. Once it is saved in database i need to delete the above original file. But when i try to delete it says permission denied. Even i am not able to delete the file manually, once i close the excel application i'm able to delete the file.

Below is the code used to delete the file.

Dim ObjFs As New Scripting.FileSystemObject
Dim fsofil As File
Set fsofil = ObjFs.GetFile"C:\Temp\Test.xlsx")
fsofil.Delete

Thanks in advance