ich möchte alle PDF-Dateien von meiner Quelle (d:\test\) nach D:\testNeu\ kopieren und überschreiben! Bei meinem Code wird nur ein PDF kopiert. Hat jemand eine Idee wie ich alle Datein kopieren und vorhandene überschreiben kann ?
Gruß Detlef
Sub Stromkreispläne_kopieren()
Dim sQuelle$, sZiel$, sDatei$
sQuelle = "D:\test\"
sZiel = "D:\testNeu\"
sDatei = "834354534.pdf"
If Dir(sZiel & sDatei) = "" Then
FileCopy sQuelle & sDatei, sZiel & sDatei
MsgBox "Datei wurde kopiert!"
End Sub