SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: antonio Sw en Miércoles 10 de Diciembre de 2003, 09:23

Título: Tamaño De Un Fichero
Publicado por: antonio Sw en Miércoles 10 de Diciembre de 2003, 09:23

Hola chicos/as:

Estoy haciendo un programin para bajar un fichero de internet. Esoy utilizando el inet, y parece que lo hace bien. Alguen sabe como puedo saber el tamaño del fichero que quiero baja?. El fin es hacer una barra de procesos, por lo que tambien me pregunto se puede saber lo que se va bajando?.

Muchas por la atención.
Antonio.

Título: Re: Tamaño De Un Fichero
Publicado por: Brroz en Miércoles 10 de Diciembre de 2003, 15:09

Hola antonio sw.

Básicamente creo que deberías utilizar el método Execute del control usando un comando FTP del tipo LS. Algo así:

Inet1.Execute "http\url.com", "LS Archivo.xxx"

Cuando el evento StateChage devuelva un estado 12 (icResponseCompleted), utilizar la función GetChunk del control para obtener el resultado.

      Dim var1 As Variant
      Dim str1 As String
      Dim ind1 As Boolean
      var1 = Inet1.GetChunk(1024, icString)
      DoEvents
      Do While Not ind1
         str1 = str1 & var1
         var1 = Inet1.GetChunk(1024, icString)
         DoEvents
         If Len(var1) = 0 Then ind1 = true
      Loop
      MsgBox str1

Con esto supongo que podrás obtener el tamaño del archivo. Para conocer el estado del proceso... no sé, tal vez controlando el estado 8 (icResponseReceived).

Suerte.