Вы можете сделать это по-другому, без проблемы «используется другим процессом»
Попробуйте это:
Public Shared Sub CopyMyFile(FromfileLocation As String, TofileLocation As String)
Try
If File.Exists(FromfileLocation) Then
Using fs As FileStream = File.OpenRead(FromfileLocation)
Using sw As FileStream = File.Open(TofileLocation, FileMode.OpenOrCreate)
Dim b(1024 * 4) As Byte
Do
Dim readed As Integer = fs.Read(b, 0, b.Length)
If readed > 0 Then
sw.Write(b, 0, readed)
Else
Exit Do
End If
Loop
End Using
End Using
End If
Catch ioEx As FileNotFoundException
Console.WriteLine(ioEx.Message)
End Try
End Sub