¿Cómo leer el archivo de texto en el servidor ftp en VB?

Usa el control Inet para operaciones FTP

Inet1.Protocol = icFTP

Inet1.RemoteHost = p_ServerName ' IP del servidor o nombre de dominio

Inet1 .RemotePort = CInt(p_ServerPort) 'Puerto FTP

Inet1.UserName = uName 'Cuenta FTP

Inet1.Password = uPWS 'Contraseña FTP

Inet1. Ejecutar "", "ls"

ri = Inet1.StillExecuting

Hacer mientras ri

ri = Inet1.StillExecuting

DoEvents

Bucle

vd = Inet1.GetChunk(1024, icString)

Determine si la conexión FTP del servicio es exitosa

Descargue el texto en el servidor debajo de Datos, asumiendo que el nombre del archivo es 1.txt

p_pathDir es el directorio de ejecución del software actual y el siguiente carácter viene con \, como e:\1111\

archivo temporal tepFile

El método de trabajo es descargar primero el archivo y luego determinar si existe localmente. Si existe, abra el archivo y lea el contenido. significa que el archivo no existe en el servidor. Sin embargo, tenga en cuenta que si el archivo es demasiado grande, es posible que deba esperar más.

tepFile = p_pathDir amp; "1.txt_"

'Inet1.Execute hDir, "get 1.txt " tepFile

Inet1.Execute " ", "GET 1.txt " & tepFile

ri = Inet1.StillExecuting

Hacer mientras ri

ri = Inet1.StillExecuting

DoEvents

Bucle

Si Dir(tepFile) = "" Entonces

Inet1.Cancel

MsgBox "El archivo no existe " amp; InetState, vbOKOnly vbExclamation, "System request"

Else

Inet1.Cancel

' ya existe aquí. Es lo mismo que la operación local archivo. Ábralo para obtener el contenido, ya no escriba en detalle

End If