Verzeichnisse verschieben
16.07.2018 21:56:54
Sergej
ich habe ein kleines Problem. Ich möchte im Verzeichnis C:\ProgramData\LTD\home\die Dateien incl. Verzeichnisse in neu erstellten Verzeichnis verschieben.
Mit diesem Code werden nur die Dateien ohne Verzeichnis verschoben.
Sub fff()
MkDir ("C:\ProgramData\LTD\home\" & "backup_" & Format(Now, "YYYYMMDD"))
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "C:\ProgramData\LTD\home\*.*", "C:\ProgramData\LTD\home\" & "backup_" & Format(Now, _
_
"YYYYMMDD") & "\" & ""
End Sub
Was muss ich bitte im Code ergänzen, um die Verzeichnisse auch zu verschieben?
Beste Grüße,
Sergej
Anzeige