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
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