Visualizzazione dei risultati da 1 a 6 su 6

Visualizzazione discussione

  1. #6
    Utente di HTML.it
    Registrato dal
    Sep 2013
    Messaggi
    32
    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
    Ultima modifica di return; 30-11-2013 a 16:37

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.