Mirad a ver si alguien me puede ayudar.
Intento poner un progres bar a mi aplicacion para que vaya en progreso junto con el archivo que me este descargando.
Os pongo el codigo de mi aplicacion para que me digais a ver de que modo lo puedo hacer.
mirad este es el CLIENTE donde quiero colocar el progress bar:
Case "descarga"
On Error Resume Next
Put #2, , datos
If Right(datos, 3) = "Fin" Or datos = "Fin" Then
MsgBox "Descarga Finalizada", vbOKOnly
Close #2
End If
End Select
Y os paso el codigo del SERVIDOR:
Case "descarga"
On Error GoTo errores
Dim tamañofile As Long
rutafile = vdatos(1)
Open rutafile For Binary Access Read As #2
tamañofile = LOF(2)
ReDim file(tamañofile - 1)
Get #2, , file
ws.SendData file
ws.SendData "Fin"
Close #2
Espero que me podais ayudar. Muchas gracias a todos camaradas.
hola este metodo no es en mi parecer no es efeciente, creo quela mejor forma es siempre enviar por trosos no todo de una, lo que tienes que hacer es leer el archivo por partes enviar el tamaño de la parte, la parte y el resto, y por cada envio vas sumando una linea a el progressbar (obiamente antes que todo Debes calcular cuantas van a ser las partes para poder establecer la propiedad .max de progressbar
Saludos