Cómo aplicar FTP en vb

Para FTP, puede utilizar el método Ejecutar para ejecutar el comando FTP TAMAÑO y obtener el tamaño del archivo. Luego puede obtener el tamaño del archivo devuelto en el evento StateChanged.

Private Sub Command1_Click()

Inet1.Execute "ftp://127.0.0.1", "SIZE 1.gif"

End Sub

Private Sub Inet1_StateChanged (ByVal State As Integer)

'Cuando State = 12, use el método GetChunk para leer la respuesta del servidor.

Dim vtData As Variant 'Variable de datos.

Seleccione el estado del caso

'...No se enumeran otros casos.

Case icError '11

'Cuando se produce un error, se devuelven ResponseCode y ResponseInfo.

vtData = Inet1.ResponseCode & ":" & _

Inet1.ResponseCode & ":" & _

Cuando ocurre un error, ResponseCode y ResponseInfo se regresó. ResponseInfo

Case icResponseCompleted ' 12

Dim strData As String

Dim bDone As Boolean: bDone = False

'Obtiene la primera pieza .

vtData = Inet1.GetChunk(1024, icString)

DoEvents

Hacer mientras no está bDone

strData = strData & vtData

p>

'Obtiene el siguiente bloque de datos.

vtData = Inet1.GetChunk(1024, icString)

DoEvents

Si Len(vtData) = 0 Entonces

bDone = True

Finalizar si

Bucle

MsgBox strData

Finalizar selección

Finalizar sub

Para descargas HTTP, puede usar GetHeader(Content-length) para obtener el tamaño del archivo. Sin embargo, no siempre es posible obtener la longitud del archivo para descargas HTTP, especialmente si el archivo se descarga a través de un servidor proxy. Por ejemplo:

Private Sub Form_Load()

Inet1.Execute "/"

End Sub

Private Sub Inet1_StateChanged(ByVal State Como entero)

Si Estado = icResponseReceived Entonces

MsgBox "El tamaño del archivo es " & Inet1.GetHeader("Content-Length")

Fin si

Fin del subtítulo