File.Copy Error

I am trying to copy file from one location to another location but it is giving me error ... following are the codes:
Dim DestinationPath As String = "F:\Project\Destination\"
Dim FilePath As String = "F:\Project\FilePath\"
Dim files As String() = Directory.GetFiles(FilePath)

For i As Integer = 0 To files.Length - 1
Dim sourcepath As String = files(i).ToString()
File.Copy(sourcepath, DestinationPath, True)
Next
Error: Could not find a part of the path 'F:\Project\Destination\'.
Whereas path exists ... I dont know what part of the path it is talking about
Please guide
...