GetFile
GetFile lädt eine Datei vom entfernten Computer herunter. Anschließend wird die Datei lokal gespeichert.
Syntax
GetFile(STRING remotefile, String localfile)
Bedeutung der Parameter:
RemoteFileist eine Zeichenfolge (Beispiel:readme.txt)LocalFileist eine Zeichenfolge (Beispiel:readmecopy.txt)
Rückgabewert
Boolescher Wert. Wenn TRUE zurückgeliefert wird, wurde die Funktion erfolgreich ausgeführt. Ansonsten wurde ein Fehler zurückgegeben. Falls FALSEzurückgegeben wird, liefert FTPObject.LastError den WIN32-Fehlercode.
Beispiel
Beispiel für die GetFile-Funktion in Verbindung mit dem FTPEin Protokoll, das zur Übertragung von Dateien zwischen Netzwerkcomputern verwendet wird.-Objekt. In diesem Beispiel werden alle Dateien heruntergeladen, die sich im Wurzelverzeichnis des FTP-Servers befinden:
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="Verzeichnis"
Else
FileType="Datei"
ret = FTPobj.GetFile (FTPobj.GetFindFileName, FTPobj.GetFindFileName)
End If
echo "Datei: " + FTPobj.GetFindFileName + " Größe: " + CStr(FTPobj.GetFindFileSize) + " Byte Typ: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function