quisiera hacer una progressbar para un bakup del registro
la funcion es esta:
Código vb:
Ver originalIf MsgBox("¿Esta seguro de querer realizar un backup del registro?", vbQuestion + vbYesNo, "Advertencia") = vbYes Then
Me.MousePointer = vbHourglass
If Len(Dir(Environ$("Homedrive") & "\backup", vbDirectory)) = 0 Then MkDir (Environ$("Homedrive") & "\backup")
Open Environ$("Homedrive") & "\backup\backup.reg" For Output As #1
Close #1
Shell "regedit /e " & Chr(34) & Environ$("Homedrive") & "\backup\backup.reg" & Chr(34)
Me.MousePointer = vbNormal
End If