FTP. Descarga completa de archivo.

[Fernando]

Ustedes disculpen pero soy nuevo y tengo muchas dudas.

En el siguiente código. ¿Cómo sabar que la descarga del archivo ha sido exitosa?
Por que puede perderse la comunicación. Mismo caso para
ftp.PutFile ( )

GetFile y PutFile no regresan un True o False para saber si ha sido exitosa la transferencia del archivo.



aArchivos() = ftp.GetEntries("*DF*.DBF",False)

For i = 0 To ArrayLen( aArchivos() )-1 Step 3
WaitCursor(True)
name = aArchivos(i)
ftp.GetFile(name,AppPath & "\" & name)
WaitCursor(False)
Next

Gracias
Fernando Leal

[manu]

Hola Fernando.

Te estoy dando una respuesta rápida, espero que te ayude.

Lo primero puedes utilizar el "ErrorLabel" para que te avise si pierdes la comunicación .
Otra opción seria cargar por ejemplo una tabla con los ficheros que tienes en la dirección donde estas enviando el fichero y comprobar si existe el que has enviado.

Deberiamos de tener una opción tipo FileExist para comprobar si esta el fichero en cuestión, a mi me ha pasado lo mismo que a tí, necesito asegurarme de que ha sido traspasado.

un saludo

[Fernando]

Manu,

Voy hacer lo siguiente.

// Subir el archivo
ftp.PutFile (AppPath & "\image001.jpg","Image001.jpg")

// Leer los archivos del directorio en FTP
aArchivos() = ftp.GetEntries("Image001.jpg",False)

Verificar el tamaño del archivo subido
nSize = aArchivos(2)

y comparar el tamaño del archivo a enviar con el enviado.


Bien, pienso que esa sería la solución.

[Jgamez]

Como se configura FTP con Basic4pp