[VB.NET] Aumento progressivo di una ProgressBar rispetto alla grandezza di un file

[trust]

Ciao

Volevo sapere come utilizzare una ProgressBar che aumenti progressivamente rispetto alla grandezza di un file da copiare in un altra directory.
In altre parole la barra di progressione deve aumentare una tecchetta in proporzione ad ogni Mb copiato nella directory
di destinazione....


Ho fatto nel seguente modo:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

	Dim sorgente as String = "c:\prova\video.wav" 'es: questo file è grande 100 mb'
	Dim destinazione as String = "C:\Programmi\video"

	ProgressBar1.Minimum = 0
	ProgressBar1.Maximum = 100

	ProgressBar1.Value = 0

	My.Computer.FileSystem.CopyFile(sorgente, destinazione)

	ProgressBar1.Value = 10

End Sub

Purtroppo nn ho ottenuto l'effetto desiderato in quanto la barra presenta solo due stati:
1) fase prima della copia = ProgressBar1.Value = 0
2) fase dopo la copia = ProgressBar1.Value = 100




Invece io volevo:
1) fase prima della copia = ProgressBar1.Value = 0
2) fase copia dopo il primo Mb = ProgressBar1.Value = 1
3) fase copia dopo il secondo Mb = ProgressBar1.Value = 2
4) fase copia dopo il terzo Mb = ProgressBar1.Value = 3

...........
100) fase copia dopo ultimo mega = ProgressBar1.Value = 100
(il tutto in modo automatico)


Si può fare una cosa del genere?
Se si, come posso farlo?

Grazie per l'attenzione

[cassano]

l'oggetto my mette a disposizione una interfaccia UI che permette di farti vedere l'avanzamento della copia.

[trust]

quale sarebbe questa interfaccia UI che mette a disposizione l'oggetto my?

[trust]

nessuno sa qual'è l'ui che mette a disposizione l'oggetto my? :master:

[Knightrider86]

Ciao Trust,
ti propongo una soluzione al tuo problema ( per adesso mi viene in mente questa...)
Ad ogni modo sta a te provarla...
1) Crei una nuova procedura di copia invece di usare quella nel framework.
In questo modo hai la possibilità di sapere ogni volta che scrivi sul nuovo file quanto hai scritto
e sommarlo a quanto avevi già scritto in precedenza (un semplice somma ad ogni ciclo) in questo modo:

mentre file_lettura.non_è_alla_fine
file_lettura.leggi_su_buffer
file_scrittura.scrivi_da_buffer
incrementa_progressbar(bytes_scritti)
fine mentre

Ovviamente prima e dopo ci vanno tutte le dichiarazioni e le inizializzazioni del caso...

Ciao