Hallo zusammen,
ich möchte mittels VBA Ordner & Dateien kopieren, allerdings nur, wenn sie ein neueres Datum als eventuell vorhandene haben. kann mir da einer weiterhelfen?
fs.Copyfolder ("K:\*"), ("\\server\untiefe\angebote\")
vorab schon mal besten Dank.
Thorsten
Hallo Thorsten,
warum verwendest du nicht den DOS-Befehl XCopy. Mit dem Parameter /m werden nur solche Ordner und Dateien kopiert, deren Archiv-Attribut gesetzt ist. Nach der Kopie wird dieses Attribut zurückgesetzt, so dass nur neue oder geänderte Ordner/Dateien beim nächsten Durchgang kopiert werden. /s und /e sorgen für die Berücksichtigung aller Unterverzeichnisse. L sei im Beispiel die Laufwerksbezeichnung deines Servers.
xcopy K:\*.* L\untiefe\angebote\*.* /m /s /e
Schreibe den Befehl in Word. Beachte, dass in DOS die Verzeichnisse maximal 8 Buchstaben haben dürfen. Ansonsten verwende die ersten 6 Buchstaben und ergänze ~1. Speichere die Datei als Textdatei und benenne sie im Explorer auf .bat um (Batch-Datei). Diese Batch-Datei kannst du durch Doppelklicken auf die Datei im Explorer ausführen, du kannst dir aber auch eine Ikone auf deinen Desktop legen.
Mit VBA ist Lösung relativ kompliziert, da man im FileSystemObject offenbar für alle Unterzeichnisebenen und zusätzlich für die Dateien entsprechende Schleifen programmieren muss.
Falls Probleme auftreten, melde dich noch einmal
Holger