none
Copiare file con progress bar RRS feed

Risposte

  • Ciao wawalex,

    ci sono tante soluzioni più o meno complesse ... una che puoi iniziare a a valutare è questa semplice semplice ..

    Dim sr As New IO.FileStream("[copyfrom]", IO.FileMode.Open)
    Dim sw As New IO.FileStream("[copyto]", IO.FileMode.Create)
    Dim len As Long = sr.Length - 1
    Dim buffer(1024) As Byte
    Dim bytesread As Integer
     
    While sr.Position < len
        bytesread = (sr.Read(buffer, 0, 1024))
        sw.Write(buffer, 0, bytesread)
        ProgressBar1.Value = CInt(sr.Position / len * 100)
        Application.DoEvents()
    End While
     
    sw.Flush()
    sw.Close()
    sr.Close()

    http://www.codeproject.com/Questions/662815/how-to-set-progress-bar-during-copying-file

    Ciao


    Renato Marzaro

    Microsoft MVP .NET

    http://community.visual-basic.it/renato

    • Contrassegnato come risposta Alex Mengoli giovedì 23 giugno 2016 20:32
    giovedì 23 giugno 2016 19:35
    Moderatore