Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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)

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