Datensicherung
20.06.2016 14:13:52
Andreas
leider bin ich noch nicht so richtig fündig geworden, hoffe Ihr könnt mir helfen.
Es werden jeden Tag Dateien erstellt, die ich dann am nächsten Tag sichern muss. Dafür wird dann immer ein neuer Unterordner erstellt mit dem Datum der Erstellung der Dateien. Also am 02.06.2016 wird dann ein Ordner erstellt mit dem Namen 2016-06-01 und dort werden dann die Dateien aus 2 Verzeichnissen hineinkopiert.
Ein Makro zum kopieren habe ich wie folgt, nur jetzt noch die Frage wie ich das mit dem Erstellen und dem dort hinein kopieren hin bekomme:
Sub Copy_File()
Dim myFso As Object
Set myFso = CreateObject("Scripting.FileSystemObject")
myFso.copyfile "C:\Test\*.xlsx", "D:\Sicherung\"
myFso.copyfile "C:\Test2\*.xlsx", "D:\Sicherung\"
End Sub
Hoffe Ihr könnt mir helfen.
Danke und Gruß
Andreas