Hallo zusammen!
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