Public Class Form1
    Private count As Integer = 0
    Private Quelle, Ziel As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Quelle = "C:\temp"
        Ziel = "F:\Backup"
        Dim df As New IO.DirectoryInfo(Quelle)
        CopyNewFiles(df)
        'und das selbe für alle Unterverzeichnisse
        For Each di As IO.DirectoryInfo In df.GetDirectories
            CopyNewFiles(di)
        Next
        MsgBox(count.ToString & " Dateien kopiert")
        count = 0
    End Sub
    Sub CopyNewFiles(ByVal subdir As IO.DirectoryInfo)
        For Each f As IO.FileInfo In subdir.GetFiles
            'nachfragen ob Datei schon besteht
            If IO.File.Exists(f.FullName.Replace(Quelle, Ziel)) = False Then
                'Schauen ob Ordner schon esteht
                If IO.Directory.Exists(f.DirectoryName.Replace(Quelle, Ziel)) = _
                  False Then
                    'wenn nein dann erstellen
                    IO.Directory.CreateDirectory(f.DirectoryName.Replace( _
                      Quelle, Ziel))
                End If
                'Wenn nein dann kopieren
                f.CopyTo(f.FullName.Replace(Quelle, Ziel), True)
                count += 1
            Else
                'wenn Datei schon besteht, dann prüfen ob neuer
                Dim sf As New IO.FileInfo(f.FullName.Replace(Quelle, Ziel))
                If f.LastWriteTime > sf.LastWriteTime Then
                    f.CopyTo(f.FullName.Replace(Quelle, Ziel), True)
                    count += 1
                End If
            End If
        Next
    End Sub
End Class

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus