Backing Up an Open Database using VBA

[DreamGenius]

Thanks to copious searching of this forum, and the posted efforts of ghudson and others, I've been able to cobble together a backup routine that is called on closing the database and creates a hierarchy of folders based on the current date. I post the current code for your use, as this question appears to be often asked.

Caveats:

1. The system it is designed to run on is a single-user, stand-alone machine
2. Disc space isn't an issue as backups are regularly copied to an Iomega Rev drive/cartridge
3. The code may not be the tidiest but is offered as a working solution. Feel free to suggest improvements

The attached ZIP file contains the BAS export of the Module called Backup. You should be able to import this directly into your code and amend as necessary.