SoloCodigo

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.