Hätte mal ne kurze Frage. Hab mir im Netz einen Code für die Datenbanksicherung rausgesucht. Der klappt bei mir aber nicht. Ich habe Access 2007.
Und zwar zeigt er einen Fehler beim FileSystemObject an. Hat diese Funktion in Access 2007 eine andere Bezeichnung? Vielleicht kann mir jemand helfen
Der Code lautet:
Public Function DB_Sicher()
Dim Quelldatei As String, Zieldatei As String, oFSO As FileSystemObject
Dim y As String, z As String
Dim intAttr As Integer
Quelldatei = CurrentProject.FullName
y = CurrentProject.Path
z = CurrentProject.Name
Zieldatei = y & „\backups“ & Left(z, Len(z) - 4) & „_“ & _
Year(Now) & „_“ & Month(Now) & „_“ & Day(Now) & „.mdb“
Set oFSO = CreateObject(„Scripting.FileSystemObject“)
If Dir(Zieldatei) „“ Then
intAttr = GetAttr(Zieldatei)
If intAttr And vbReadOnly Then SetAttr Zieldatei, intAttr - vbReadOnly
oFSO.DeleteFile Zieldatei
End If
oFSO.CopyFile Quelldatei, Zieldatei, True
SetAttr Zieldatei, vbReadOnly
MsgBox „Es wurde eine Sicherheitskopie unter " & Zieldatei & " erstellt“
End Function
Mein Ziel wäre eigentlich, da ich die Datenbank ja nicht selber verwende, das Access z.B. jeden Montag automatisch eine Sicherung erstellt. das geht ja wohl nur mit Code.
Und laut diesem Forum klappt der Code ja auch, nur kann ich ihn nicht als FileSystemObject definieren, weil das bei mir in der IntelliListe nicht aufgelistet ist.
Mir ist schon klar, das ich das jederzeit manuell machen kann. Nur will ich mich erstens nicht drauf verlassen das der Anwender das z.B. jede Woche macht, noch will ich das es ein Anwender der Datenbank machen muss. Also muss es so einen Code wohl geben.
Bitte um Hilfe
