Dim Pfad1 As String, Pfad2 As String, Datei As String
Pfad1 = "c:\winodws\"
Pfad2 = "c:\temp\"
Datei = "meine.txt"
 
[color=green]' Datei in c:\windows vorhanden, aber nicht in c:\temp
If Dir(Pfad1 & Datei) <> "" And Dir(Pfad2 & Datei) = ""
  FileCopy Pfad1 & Datei, Pfad2 & Datei
End If
 
[color=green]' Datei in c:\windows und in c:\temp vorhanden
If FileDateTime(Pfad1 & Datei) > FileDateTime(Pfad2 & Datei) Then
  FileCopy Pfad1 & Datei, Pfad2 & Datei
End If

Gruß
Marcus