Ah ok Grz lo stesso. Ho risolto da solo, posto il codice, magari potrebbe servire a qualcuno.
codice:
Try
Dim buffer1(4096) As Byte
Dim readByte As Integer
Dim us As FileStream
Dim os As FileStream
Try
File.Copy(TextBox1.Text, TextBox3.Text)
us = New FileStream(TextBox2.Text, FileMode.Open)
os = New FileStream(TextBox3.Text, FileMode.Append)
Do While True
readByte = us.Read(buffer1, 0, buffer1.Length)
If readByte = 0 Then Exit Do
os.Write(buffer1, 0, readByte)
Loop
Catch ex As IOException
'Inserire qui la gestione degli errori di IO
Catch ex As Exception
'Inserire qui la gestione degli altri errori
Finally
End Try
If Not (os Is Nothing) Then os.Close()
If Not (us Is Nothing) Then us.Close()
Catch ex As Exception
MsgBox("Errore nell' applicazione", MsgBoxStyle.Critical)
End Try
textbox1 indica il file da accoppiare, textbox2 indica anche esso l'altro file da accoppiare e textbox3 il file output cioè quello di uscita