Sytse1
Gebruiker
- Lid geworden
- 9 aug 2007
- Berichten
- 584
- Office versie
- miDer
Bij het afsluiten van mijn met Access 365 gemaakte toepassing wil ik automatisch een back-up maken.
De back-up komt in een andere map te staan bv c:/Temp/Backup
Als de back-up datum dezelfde is wordt de back-up met de laatste overschreven.
Bij een andere datum wordt er een nieuwe back-up geplaatst.
De volgende VBA code geeft bij fout opsporing geen foutmelding maar wel bij de uitvoering.
Help. Waar zit de fout?
De back-up komt in een andere map te staan bv c:/Temp/Backup
Als de back-up datum dezelfde is wordt de back-up met de laatste overschreven.
Bij een andere datum wordt er een nieuwe back-up geplaatst.
De volgende VBA code geeft bij fout opsporing geen foutmelding maar wel bij de uitvoering.
Help. Waar zit de fout?
Code:
Function MaakBackup() As Boolean
Dim Source As String
Dim Target As String
Dim a As Integer
Dim objFSO As Object
Dim Path As String
Dim VarDD As Date
VarDD = Date
'huidige databse en map
Path = "C:\Temp"
Source = CurrentDb.Name
Target = Path & "\TEMP\Backup\" & "Opgeslagen door " & Environ("Username") & " op " & VarDD & " " & ".accdb"
'maak de backup
a = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(Path) Then
a = objFSO.CopyFile(Source, Target, True)
Else
objFSO.createfolder (Path)
a = objFSO.CopyFile(Source, Target, True)
End If
Set objFSO = Nothing
End Function