Datensicherung
17.12.2018 13:33:36
Joachim
ich möchte gerne eine Datensicherung per Makro durchführen, bei der mehrere Dateien in einen neuen Ordner (der das aktuelle Datum enthalten soll)kopiert werden. Die kopierten Dateien sollen auch das aktuelle Datum angehängt bekommen. Den Ordner zu erstellen hab ich schon hingekriegt. Ich bekomme dann aber Probleme beim kopieren. Bisher habe ich folgendes zusammengebastelt.
Sub Datensicherung()
Const Pfad = "c:\daten\Datensicherung\"
Dim PfadDatum As String
Dim strDatum As String
Dim strZiel As String
Dim strQuelle As String
strDatum = Format(Date, "YYYY.MM.DD")
MkDir ("c:\daten\Datensicherung\" & strDatum)
strQuelle = "z:\2019\BUPLA\1900\2019_1900_Personal.xlsm"
strZiel = "c:\Daten\Datensicherung\" & strDatum
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.copyfile strQuelle, strZiel
Set objFSO = Nothing
End Sub
Kann mir jemand weiterhelfen?