Ah ok Grz lo stesso. Ho risolto da solo, posto il codice, magari potrebbe servire a qualcuno.
textbox1 indica il file da accoppiare, textbox2 indica anche esso l'altro file da accoppiare e textbox3 il file output cioè quello di uscitacodice: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

Rispondi quotando