Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

geänderte Ordner per VBA kopieren

Forumthread: geänderte Ordner per VBA kopieren

geänderte Ordner per VBA kopieren
08.01.2008 09:11:00
Thorsten
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

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: geänderte Ordner per VBA kopieren
08.01.2008 11:56:07
Holger
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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige