Spanish FTP. Descarga completa de archivo.

Fernando

Member
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

Active Member
Licensed User
Longtime User
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

Member
cierto

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. :)
 
Top