Create Auto-Backup Database upon form opening Getting run time error 70

[Charandpat]

I created Module I with:


Public Function CreateBackup() As Boolean
Dim Source As String
Dim Target As String
Dim a As Integer
Dim objFSO As Object
Dim Path As String
Path = CurrentProject.Path 'get location of current folder
Source = CurrentDb.Name
Target = "I:\ProgramManagement\Contract_Compliance\Acce ss Database Actual Backup of Database and Tables\BackUpCP1LC" & "\BackupDBCP1LC "
Target = Target & Format(Now(), "mm-dd") & ".accdb"


' create the backup
a = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
a = objFSO.CopyFile(Source, Target, True)
Set objFSO = Nothing
End Function

In the actual form I did open open



I am getting error Run time error 70
The debug showing it does not like the following in my Module
a = objFSO.CopyFile(Source, Target, True)

[Welshgasman]

And error 70 is?

[Charandpat]

It just says run time error 70 and then when I click on debug it points to my module line
a = objFSO.CopyFile(Source, Target, True)

[Welshgasman]

Try googling 'vba error 70'. That should give you a clue. To confim, trying copying to another folder.
Also if that works, then try copying from another folder.

[Micron]

I don't see how you can make an integer equal what the method is supposed to do - namely copy a file from a source to a destination and either overwrite or not. I do not recall ever reading that the method provides a return value.

This would be the first time I have ever seen it declared that an error is raised and provides only a number and no text message. Apparently the number is about trying to modify a write protected file.