Sub Syncronize(ByVal Source As String, ByVal Dest As String)
        Try
            If Not Directory.Exists(Source) Then
                Console.WriteLine("Fatal Error: Sourcepath doesn't exists!")
                Exit Sub
            End If
            If Not Directory.Exists(Dest) Then Directory.CreateDirectory(Dest)
            Dim Files() As String = Directory.GetFiles(Source)
            Dim file As String
            For i As Integer = 0 To Files.Length - 1
 
 
                file = Files(i).Substring(Files(i).LastIndexOf("\") + 1)
 
                Dim quelle As New IO.FileInfo(Files(i))
                Dim ziel As New IO.FileInfo(Dest & "\" & file)
 
 
 
                If IO.File.Exists(ziel.ToString) = False OrElse _
                  quelle.LastWriteTime > ziel.LastWriteTime Then
 
 
                    Try
                        IO.File.Copy(Files(i), Dest & "\" & file, True)
                        Console.WriteLine(Files(i))
                    Catch ex As Exception
                        'Datei verwendet!
                        Console.WriteLine("Error")
                        errors.Add(Files(i).ToString)
                    End Try
                End If
            Next i
 
 
            'rekursiver aufruf für Unterordner:
            Dim SubDirs() As String = Directory.GetDirectories(Source)
            Dim SubDir As String
            For i As Integer = 0 To SubDirs.Length - 1
                If SubDirs(i) <> Dest Then
                    SubDir = SubDirs(i).Substring(SubDirs(i).LastIndexOf("\") + _
                      1)
                    Syncronize(SubDirs(i), Dest & "\" & SubDir)
                End If
            Next i
        Catch ex As UnauthorizedAccessException
            'Zugriff verweigert!
            Console.WriteLine("Error")
            errors.Add("Zugriff verweigert: " & Source)
        End Try
    End Sub

_______________________________________________________________________
Heute stehen wir am Abgrund. Morgen sind wir schon einen Schritt weiter.

iComputerfreak