"Cor Ligthert" <notmyfirstn***@planet.nl> wrote in message
news:#9dmQasPFHA.244@TK2MSFTNGP12.phx.gbl...
> Michael,
>
> I made your sample testable. However, it did what it should do in my
> opinion.
>
> You see some changes, I have brought the declarations inside the loop. In
my
> opinion gives this a nicer memory management. (Everytime are the values
> deleted from the stack and are the objects direct given free to the GC to
> destroy). However that has nothing to do with the error you told.
>
> Just try this sample, it is complete, however you have to made some
> directorys and one testfile.
>
> (It is basicly your sample, without the global settings and the not needed
> boolean I did not change anything, although that I prefer just because it
is
> easier to write the io.file.copy method).
>
> \\\
>  Public Function SyncFiles() As Boolean
>         Dim SourceFileNames() As String = New String()
> {"C:\test1\WhatEver.txt"}
>         Dim DestFileNames() As String = New String()
> {"C:\test2\WhatEver2.txt"}
>         Try
>             For i As Integer = 0 To SourceFileNames.Length - 1
>                 ' SourceFileNames is an array of strings for the path and
> filenames of each of the files to be copied from the source folder
>                 ' DestFilenames is an array of strings for the path and
> filenames of each of the files to be copied from the source folder
>                 Dim CopyFromPath As String = SourceFileNames(i)
>                 Dim CopyFromPathFileInfo As New IO.FileInfo(CopyFromPath)
>                 Dim CopyToPath As String = DestFileNames(i)
>                 Dim CopyToPathFileInfo As New IO.FileInfo(CopyToPath)
>                 If CopyFromPathFileInfo.Exists Then  ' Make sure source
file
> exists
>                     If CopyToPathFileInfo.Exists Then ' If target exists
> check for latest version
>                         If CopyFromPathFileInfo.LastWriteTime >
> CopyToPathFileInfo.LastWriteTime Then
>                             CopyFromPathFileInfo.CopyTo(CopyToPath, True)
>                         End If
>                     Else
>                         CopyFromPathFileInfo.CopyTo(CopyToPath, True)
>                     End If
>                 Else
>                     Return False
>                 End If
>             Next
>             Return True
>         Catch ex As Exception
>             Return False
>         End Try
>     End Function
> ///
>
> I hope this helps,
>
> Cor
>
>