GetFile
GetFile recupera un archivo del equipo remoto. El archivo luego se almacena de forma local.
Sintaxis
GetFile(remotefile de CADENA, localfile de CADENA)
Donde:
RemoteFilees una cadena (por ejemplo,readme.txt)LocalFilees una cadena (por ejemplo,readmecopy.txt)
Devolución
Booleano. Si la devolución es TRUE, significa que la función ha tenido éxito; si el resultado es otro, significa que se ha producido un error. Cuando la devolución es FALSE, FTPObject.LastError emitirá el código de error WIN32.
Ejemplo
Un ejemplo de la función GetFile en el objeto FTPProtocolo que se utiliza para transferir archivos entre equipos de redes.. Recupera todos los archivos hallados en la raíz del servidor FTP:
Function Main
Dim FTPobj as Object
Const DIRECTORYMASK=&H10
ip = "127.0.0.1"
port = 21
cr = Chr(13) + Chr(10)
Set FTPobj = FTP.Connect (ip,puerto,TRUE,"anonymous","lnss@gfi.com")
Found=FTPobj.FindFirstFile("*")
While Found
If (FTPobj.GetFindFileAttributes And DIRECTORYMASK) = DIRECTORYMASK Then
FileType="directory"
Else
FileType="file"
ret = FTPobj.GetFile (FTPobj.GetFindFileName, FTPobj.GetFindFileName)
End If
echo "File: " + FTPobj.GetFindFileName + " size: " + CStr(FTPobj.GetFindFileSize) + " bytes type: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function