Ver Mensaje Individual
  #1 (permalink)  
Antiguo 03/05/2010, 15:19
50l3r
 
Fecha de Ingreso: agosto-2009
Mensajes: 421
Antigüedad: 13 años
Puntos: 6
Progressbar para un bakup del registro

quisiera hacer una progressbar para un bakup del registro

la funcion es esta:

Código vb:
Ver original
  1. If MsgBox("¿Esta seguro de querer realizar un backup del registro?", vbQuestion + vbYesNo, "Advertencia") = vbYes Then
  2.        
  3.         Me.MousePointer = vbHourglass
  4.  
  5.         If Len(Dir(Environ$("Homedrive") & "\backup", vbDirectory)) = 0 Then MkDir (Environ$("Homedrive") & "\backup")
  6.         Open Environ$("Homedrive") & "\backup\backup.reg" For Output As #1
  7.         Close #1
  8.        
  9.         Shell "regedit /e " & Chr(34) & Environ$("Homedrive") & "\backup\backup.reg" & Chr(34)
  10.        
  11.         Me.MousePointer = vbNormal
  12.        
  13.     End If