Синхронизация двух каталогов

 Private Sub SyncDir(ByVal FromDir As String, ByVal ToDir As String)
        Directory.CreateDirectory(ToDir)
 
        For Each s1 As String In Directory.GetFiles(ToDir)
            Dim s2 As String = FromDir & "\" & Path.GetFileName(s1)
 
            If Not File.Exists(s2) Then
                Console.WriteLine("Deleting file^ {0}", s1)
                File.Delete(s1)
            End If
        Next
 
        For Each s1 As String In Directory.GetFiles(FromDir)
            Dim s2 As String = ToDir & "\" & Path.GetFileName(s1)
 
            If Not File.Exists(s2) Then
                File.Copy(s1, s2)
            Else
                Dim fi1 As FileInfo = New FileInfo(s1)
                Dim fi2 As FileInfo = New FileInfo(s2)
 
                If fi1.LastWriteTime <> fi2.LastWriteTime Then
                    File.Delete(s2)
                    File.Copy(s1, s2)
                    Console.WriteLine("Update file {0} from file {1}", s1, s2)
                End If
            End If
        Next
 
        For Each s As String In Directory.GetDirectories(FromDir)
            SyncDir(s, ToDir & "\" & Path.GetFileName(s))
            Console.WriteLine(s)
        Next
    End Sub

SyncDir("C:\1\","C:\2\")

  Dim FromDirectory As String = ""
    Dim ToDirectory As String = ""
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        parseArguments(My.Application.CommandLineArgs(0))
    End Sub
 
    Sub parseArguments(ByVal args As String)
        If args.Length >= 9 Then
            If args.Contains("|") Then
                FromDirectory = Replace(Split(args, "|")(0), Chr(34), "")
                ToDirectory = Replace(Split(args, "|")(1), Chr(34), "")
                SyncDir(FromDirectory, ToDirectory)
            End If
        End If
    End Sub