Visual Basic - ProgressBar Enviar Archivo

Life is soft - evento anual de software empresarial
   
Vista:

ProgressBar Enviar Archivo

Publicado por Alvaro (85 intervenciones) el 04/09/2009 13:41:28
Hola muy buenas a todos, les cuento, tengo un progressbar en un formulario desde el cual envio un archivo a internet, querria saber como puedo hacer que el progressbar vaya aumentando a medida que se va enviando el archivo. A continuacion os detallo como hago el envio.

RutaOrigenBase = "C:Base.mdb"
RutaDestinoBase = "/Base.mdb"

Inet1.Execute , "Put " & LCase(RutaOrigenBase) & " " & LCase(RutaDestinoBase)

Do While Inet1.StillExecuting
DoEvents
lll.Caption = Inet1.ResponseCode
DoEvents
DoEvents
DoEvents
lll.Refresh
DoEvents
DoEvents
Me.Refresh
DoEvents
DoEvents
Loop

Me seria de gran ayuda cualquier informacion que me puedan facilitar. Muchas gracias por adelantado. Un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder