PutFile
PutFile lädt eine Datei von einem lokalen Datenträger auf den entfernten FTPEin Protokoll, das zur Übertragung von Dateien zwischen Netzwerkcomputern verwendet wird.-Server hoch.
Syntax
PutFile(STRING localfile, STRING remotefile)
Bedeutung der Parameter:
Localfileist eine Zeichenfolge (Beispiel:readme.txt)Remotefileist eine Zeichenfolge (Beispiel:readme.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, in dem eine Datei hochgeladen und auf einem entfernten FTP-Server gelöscht wird:
Function Random(N)
Random = Int(N*Rnd)
End Function
Function Main
Dim FTPobj As Object
Dim fl As Object
'nach Bedarf konfigurieren
ip = "127.0.0.1"
port = 21
mode = FALSE
username = "anonymous"
password = "test@lnss.com"
cr = Chr(13) + Chr(10)
Set fl = file.Connect("127.0.0.1")
fl.Open "testdatei.txt", GENERIC_WRITE, CREATE_ALWAYS
fl.writeline("Dies ist eine Testdatei")
'Zufallsgenerator initialisieren
Randomize
fl.Close
'jetzt Zufallszahl zum Anhängen an die Dateinamen generieren
For K = 1 To 10
randomnumber = randomnumber & CStr(Random(10))
Next
tempFile = "lnssDatei" + randomnumber
'neue FTP-Verbindung erstellen
Set FTPobj=FTP.Connect (ip,21,mode,username,password)
If FTPobj.PutFile ( "testdatei.txt", tempFile ) = TRUE Then
echo "Berechtigung zum Schreiben von Dateien verfügbar auf anonymem FTP unter " + ip & cr
If FTPobj.DeleteFile ( tempFile ) = TRUE Then
echo "Berechtigung zum Löschen von Dateien verfügbar auf anonymem FTP unter " + ip & cr
Else
echo "Berechtigung zum Löschen von Dateien nicht verfügbar. Möglicherweise müssen Sie die von GFI LanGuard erstellten Dateien löschen" & cr
End If
End If
fl.Delete("testdatei.txt")
End Function