Buongiorno a tutti,
come da oggetto all'esecuzione dell'istruzione fso.copyfolder non viene evidenziato la picture di una cartella in movimento.
in pratica durante l'esecuzione della copia vorrei far vedere un movimento che indichi all'utente che la copia è in esecuzione per questo uso l'evento timer che sposta una picture.
il codice è questo:
Private Sub Timer1_Timer()
If Picture2(1).Left < 6100 Then
Picture2(1).Left = Picture2(1).Left + 50
Else
Picture2(1).Left = 3300
End If
End Sub
.
.
sorg = App.Path & "\Archivio
dest = Label2(9).Caption & "\Gest Cs"
Picture2(1).Visible = True
Timer1.Interval = 25
DoEvents
fso.CopyFolder sorg, dest, True
DoEvents
.
.
la destinazione è su una chiavetta USB e per tutto il tempo della copia la picture rimane ferma.
Dove sbaglio ?
Grazie a tutti.
|