Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dateien nur kopieren wenn noch nicht im Verz.i

Forumthread: Dateien nur kopieren wenn noch nicht im Verz.i

Dateien nur kopieren wenn noch nicht im Verz.i
08.10.2004 22:01:09
Peter
Hallo Leute,
ich suche nach einer Lösung um aus Excel heraus zwei gleiche Verzeichnisse abzugleichen und nur die noch nicht vorhandenen Dateien in das 2. Verzeichnis zu kopieren.
Dank im voraus...Peter
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien nur kopieren wenn noch nicht im Verz.i
K.Rola
Hallo,
so z.B.:
Option Explicit
Sub Dateien_Kopieren()
Const DIR_QUELLE = "C:\test\"
Const DIR_ZIEL = "C:\test01\"
Dim objFS As Object, objFld As Object, objFile As Object
Set objFS = CreateObject("Scripting.Filesystemobject")
Set objFld = objFS.GetFolder(DIR_QUELLE)
For Each objFile In objFld.Files
If objFile.Name <> Dir(DIR_ZIEL & objFile.Name) Then _
objFS.CopyFile objFile.Path, DIR_ZIEL
Next
Set objFS = Nothing
Set objFile = Nothing
Set objFld = Nothing
End Sub

Gruß K.Rola
Anzeige
Ich hoffe mal, dass
K.Rola
..die angegebene Excelversion nicht stimmt?
Gruß K.Rola
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige