VBA - Undo save, i.e. delete a file that has just been saved and open original.

[NiceToMichu]

Hi guys,

These are my Subs:

Sub Undosave()

Application.ScreenUpdating = False
Application.OnTime Now, "Undosave2"
ThisWorkbook.Close SaveChanges:=False

End Sub
Sub Undosave2()

Application.Workbooks.Open ("C:\Users\Seth\Documents\Costing Program\Process Costing\Process Costing Updating")
Windows("C:\Users\Seth\Documents\Costing Program\Process Costing\Process Costing Updating").Activate
Kill ("C:\Users\Seth\Documents\Costing Program\Process Costing\" & Range("K37").Value)
MsgBox "Deleted"
Application.ScreenUpdating = True

End Sub

I am basically trying to delete a file that has just been 'saved as' and then reopen the original from where the 'save as' was orignally created. Now the name of the 'saved as' file is made up from the file directory & one of the cell values "K37", I have tried multiple times but the error message pops-up and says it either can't find the file or file is out of range. Please help!

 

[mole999]

unless you have backups turned on, when you delete a file you change a control bit in the disk structure and hide it from the operating system. I don't believe that excel can operate like that to find a deleted file and undelete, its what the recycle bin tries to do, and there are commercial packages to scan for accidentally deleted files to enable a recovery

 

[NiceToMichu]

Thanks for the reply @mole999, I think I explained my predicament quite poorly so sorry for that! I need to undo a saveas by deleting the file that was created

 

[mole999]

just a guess, you may need to re-read the directory, so that the extraneous file is found, then issue a kill for it. How best to do this, I'm not sure