Code doesn't release object.

[Don Wells]

    Running Office 2007

    The attached workbook contains a macro to determine the system Time Zone. In doing this it creates a folder (Get_Zone), on the Desktop. Throughout the process several files and another directory are created within Get_Zone and later deleted. Finally the code deletes the Get_Zone directory.

    My problem is that the folder Get_Zone remains on the desktop until the workbook is closed, at which time it is deleted without user intervention.

    Can someone please advise me on correcting this aggravation. I am loathe to adding code to close the workbook as a solution.

    Many thanks in advance.

[HansV]

The Flag subfolder disappears when I run the code, I don't have to wait until I close the workbook...

[Don Wells]

FWIW I'm running Windows 7; Office 2007, SP3

[HansV]

And FWIW, I'm running Windows 8.1 Update, Office 2013 SP1, but I don't think that would make a difference.

[Rudi]

How about hiding the directory...
It still deletes only when the file closes, but you never see it
(Assuming the user is not showing hidden files)

Code: Select all

...
  un = Environ("username")
  dp = "C:\users\" & un & "\desktop\"
  
  MkDir (dp & dn)
  SetAttr dp & dn, vbHidden
  
  DoEvents
  Call Bat_File.create_run_delete_batch_file(bn, rn, dp & dn & "\")
...