Nicht verschieben sondern nur kopieren
TCO99
mittels eines Codes von Nepumuk kopiere ich ein Verzeichnis von einem Ort zu einem anderen Ort.
Das ist der Code:
Public Sub kopieren()
Dim FSYObjekt As Object
Set FSYObjekt = CreateObject("Scripting.FileSystemObject")
FSYObjekt.CopyFolder "D:\Eigene Dateien\Testordner", "D:\"
End Sub
Aber leider kopiert der Code bei mir der Code nicht das Verzeichnis sondern verschiebt es einfach.
Ich habe eine Beispielmappe gebastelt, in der funktioniert es aber leider nicht in meiner eigentlichen Datei.
Ich verstehe das nicht.
Der von mir angepasste Code lautet:
Dim FSYObjekt As Object
Set FSYObjekt = CreateObject("Scripting.FileSystemObject")
FSYObjekt.CopyFolder Zielverzeichnis & "\" & Hauptverzeichnis, ZielverzeichnisArchiv & "\"
Wie ihr sehen könnt, gebe ich keine absoluten Pfade an, sondern Variablen.
Kann es daran liegen?
Gruß
Erdogan
Anzeige