Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!
).Set Me.Recordset = DeinADORecordsetPublic Sub DB_Sichern()
' Quelle: http://www.office-loesung.de/ftopic38239_0_0_asc.php
' leider nicht mehr aufrufbar
Dim str_Quelldatei As String, str_Zieldatei As String, obj_FSO As Variant
Set obj_FSO = CreateObject("Scripting.FileSystemObject")
' Sicherung des Backends
str_Quelldatei = "Deine_Original_Backend_DB_inkl_Pfad"
str_Zieldatei = "Deine_Sicherungs_Backend_DB_inkl_Pfad"
obj_FSO.CopyFile str_Quelldatei, str_Zieldatei, True
' Sicherung des Frontends
str_Quelldatei = "Deine_Original_Frondend_DB_inkl_Pfad"
str_Zieldatei = "Deine_Sicherungs_Frondend_DB_inkl_Pfad"
obj_FSO.CopyFile str_Quelldatei, str_Zieldatei, True
MsgBox "Sicherheitskopien erfolgreich erstellt"
End Sub