autobackup database
- Thread starter THREE05
- Start date
missinglinq
AWF VIP
- Local time
- Today, 13:47
- Joined
- Jun 20, 2003
- Messages
- 6,420
I saw this somewhere, recently, and archived it. I haven't tried it myself, but the OP of the post reported that it worked for him without any problem.
Create a SubFolder to the Folder that holds your Access File, naming it LatestBackups. Next, enter this code into a Standard Module.
Save the Module, naming it modBackUp.
In an appropriate event, enter
Linq ;0)>
Create a SubFolder to the Folder that holds your Access File, naming it LatestBackups. Next, enter this code into a Standard Module.
Code:
Public Function BackUpAccess()
Dim sourceFile As String, destinationFile As String
Dim aFSO As Variant
Dim path As String, name As String
sourceFile = CurrentProject.FullName
path = CurrentProject.path
name = CurrentProject.name
destinationFile = path & "\LatestBackups\" & Left(name, Len(name) - 6) & "_backup" & "_" & _
Year(Now) & "_" & Month(Now) & "_" & Day(Now) & ".accdb"
'this removes a file created on the same day
If Dir(destinationFile) <> "" Then
Kill destinationFile
End If
'this creates a backup into destination path
If Dir(destinationFile) = "" Then
Set aFSO = CreateObject("Scripting.FileSystemObject")
aFSO.CopyFile sourceFile, destinationFile, True
MsgBox "A database backup has been stored under " & destinationFile
End If
End FunctionIn an appropriate event, enter
Code:
Call BackUpAccess()Linq ;0)>
i added a "check for dir" to the code and the code will make the directory and copy the file if the dir does not exist, but i get a "runtime error 75: path/file access error" on the MkDir (destPath) line if the dir already exists. what am i missing?
Code:
Public Function BackUpAccess()
Dim sourceFile As String, destinationFile As String
Dim aFSO As Variant
Dim sourcePath As String, sourceName As String
Dim destPath As String, destName As String
sourceFile = CurrentProject.FullName
sourcePath = CurrentProject.path
sourceName = CurrentProject.name
destPath = sourcePath & "\backup"
' make backup directory if not exists
If Dir(destPath) = "" Then
MkDir (destPath)
End If
destinationFile = destPath & "\" & Left(sourceName, Len(sourceName) - 6) & "_backup" & "_" & Format(Now(), "yyyymmdd") & ".accdb"
'this removes a file created on the same day
If Dir(destinationFile) <> "" Then
Kill destinationFile
End If
'this creates a backup into destination path
If Dir(destinationFile) = "" Then
Set aFSO = CreateObject("Scripting.FileSystemObject")
aFSO.CopyFile sourceFile, destinationFile, True
'MsgBox "A database backup has been stored under " & destinationFile
End If
End Function
- Local time
- Today, 10:47
- Joined
- Oct 29, 2018
- Messages
- 22,354
Hi Bryan,
Try to do a Debug.Print destPath, so you can see what folder path you're trying to create. If it's a full path, I am not sure MKDIR can do that, but I could be wrong though. Cheers!
PS. I just did a quick test. MKDIR cannot make a subfolder if the parent folder does not exist. You'll have to create one folder at a time, it seems.
Try to do a Debug.Print destPath, so you can see what folder path you're trying to create. If it's a full path, I am not sure MKDIR can do that, but I could be wrong though. Cheers!
PS. I just did a quick test. MKDIR cannot make a subfolder if the parent folder does not exist. You'll have to create one folder at a time, it seems.
the directory does exist, i was expecting the code to skip the mkdir if it evaluated false
debug.print shows C:\Users\bryan\Documents\msAccess\beacon\backup; so why does the code not skip the mkdir?
MsgBox Dir(destPath) came up empty, whats that tell me?
- Local time
- Today, 10:47
- Joined
- Oct 29, 2018
- Messages
- 22,354
that did it! thanks for your help
Similar threads
