GetFile
GetFile recupera um arquivo da máquina remota. Então,o arquivo é armazenado localmente.
Sintaxe
GetFile(CADEIA DE CARACTERES arquivoremoto, CADEIA DE CARACTERES arquivolocal)
Na qual:
ArquivoRemotoé uma cadeia de caracteres (exemplo:readme.txt)ArquivoLocalé uma cadeia de caracteres (exemplo:readmecopy.txt)
Retorno
Booleano. Se retornar TRUE, a função foi bem-sucedida; caso contrário, houve um erro. Se retornar FALSE, FTPObject.LastError retornará o código do erro WIN32.
Exemplo
Um exemplo da função GetFile no Objeto FTPProtocolo usado para transferir arquivos entre computadores da rede.. Recupera todos os arquivos encontrados na raiz do 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,port,TRUE,”anônimo","lnss@gfi.com")
Found=FTPobj.FindFirstFile("*")
While Found
If (FTPobj.GetFindFileAttributes And DIRECTORYMASK) = DIRECTORYMASK Then
FileType=”diretório"
Else
FileType=”arquivo"
ret = FTPobj.GetFile (FTPobj.GetFindFileName, FTPobj.GetFindFileName)
End If
echo “Arquivo: " + FTPobj.GetFindFileName + " tamanho: " + CStr(FTPobj.GetFindFileSize) + " tipo bytes: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function