Visual Basic 6 - Inserimento "progress bar" e "msgbox" nella copia

Forum - Visual Basic 6 - Inserimento "progress bar" e "msgbox" nella copia

Cross (Normal User)
Pro

Messaggi: 61
Iscritto: 06/05/2007

Postato alle 18:24
Giovedì, 07/06/2007

ciao a tutti!!!
ecco il codice del mio programma:

Codice sorgente - presumibilmente VB.NET

If ceckdocumenti Then x = CopyFile("C:\Documents and Settings\" & txt & "\documenti", lbl, True, True)
If ceckdesktop Then x = CopyFile("C:\Documents and Settings\" & text & "\desktop", label, True, True)
If Not x Then MsgBox "Errore.!", vbCritical, "Errore di copia"

vorrei inserire nel mio programma una progress bar
che mi indica lo stato della copia mentre la fa;
come fare???

oltre a questo, vorrei inserire un msgbox che mi avvisa quando la copia è finita.
Come fare???
grazie moltissimo

umberto (Normal User)
Newbie

Messaggi: 19
Iscritto: 04/06/2007

Postato alle 7:07
Venerdì, 08/06/2007

Ciao, per inserire una progressbar devi sapere lo stato d'avanzamento della copia, quindi non è possibile farlo con filecopy.

Tuttavia è possibile farlo aprendo il file da copiare in binario, leggerlo e scriverlo passo dopo passo nel file di destinazione

Questa potrebbe essere una soluzione abbastanza lenta che è possibile velocizzare

Open NOMEFILESORGENTE For Binary As #1
Open NOMEFILEDESTINAZIONE For Binary As #2
Lungezza = FileLen(NOMEFILESORGENTE)
For Posizione = 1 To Lunghezza
Get #1, Posizione, d
Put #2, Posizione, d
Next Posizione
Close #2
Close #1

la variabile Posizione indica lo stato di avanzamento della copia....Ciao e fammi sapere

Cross (Normal User)
Pro

Messaggi: 61
Iscritto: 06/05/2007

Postato alle 17:10
Venerdì, 08/06/2007

scusami ma mi puoi spiegare meglio come inserire il codice nel mio programma????
(nn sono molto pratico ancora)