GetFile
GetFile recupera un file dal computer remoto. Il file viene quindi archiviato localmente.
Sintassi
GetFile(STRING remotefile, String localfile)
Dove:
RemoteFileè una stringa (esempio:readme.txt)LocalFileè una stringa (esempio:readmecopy.txt)
Restituisce
Booleano. Se restituisce TRUE, la funzione è stata eseguita correttamente, altrimenti significa che è stato restituito un errore. Se viene restituito FALSE, FTPObject.LastError restituirà il codice di errore WIN32.
Esempio
Un esempio della funzione GetFile nell’oggetto FTPUn protocollo utilizzato per il trasferimento dei file tra i computer di rete.. Recupera tutti i file trovati nella radice del server 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,"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 + " dimensione: " + CStr(FTPobj.GetFindFileSize) + " tipo byte: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function