Ayuda con Inet Control

ratonactivex
19 de Marzo del 2004
Hola a todos

les cuento que me encuentro desarrollando una aplicacion la cual tiene que descargar archivos de un servidor, para lo cual utilizo el Inet control

el problema es que cuando hago la descarga el archivo baja con un tamano
distinto al original y no puedo encontrar la solucion, el metodo openurl del control no lo puedo usar ya que de esa forma tengo que esperar a que el control baje el archivo para seguir utilizando mi aplicacion

si alguno sabe cual es el problema o alguna recomendacion para hacer la
descarga

el codigo que utilizo es el siguiente

Private Sub Command1_Click()
Inet1.URL = "http://www.misercvidor.com.ar"
Inet1.Execute "http://www.miservidor.com.ar/Archivo.exe", "GET"
end sub

Y tambien probe asi
Private Sub Command1_Click()
Inet1.URL = "http://www.misercvidor.com.ar"
Inet1.Execute , "GET http://www.misercvidor.com.ar" & " " & app.path &
"Archivo.exe"
end sub


Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim intFreeFile As Integer
Dim vtData As Variant ' Data variable.

select case State
Case icResponseCompleted

intFreeFile = FreeFile
Open App.Path + "Archivo.exe" For Binary Access Write As
intFreeFile

'Get first chunk.
vtData = Inet1.GetChunk(1024, icByteArray)
DoEvents

' Get next chunk/s.
Do While LenB(vtData) > 0
Put intFreeFile, , vtData
vtData = Inet1.GetChunk(1024, icByteArray)
Loop

Put intFreeFile, , vtData
Close intFreeFile

End Select
end sub

A y si alguno sabe como leer el tamaño del archivo con el comando zise, porque no lo puedo lograr