[VB6] Aggiungere "Progress Bar" per mostrare avanzamento copia di file

[jackk87]

questo procedimento uso per la copia delle cartelle

Set fso = CreateObject("Scripting.FileSystemObject")
fso.copyfolder txt1.Text, txt4.Text

dove txt1 e txt4 sono due textbox