PutFile
PutFile carica un file dal disco locale al server ftp remoto.
Sintassi
PutFile(STRING localfile, STRING remotefile)
Dove:
Localfileè una stringa (esempio:readme.txt)Remotefileè una stringa (esempio:readme.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
Esempio in cui viene caricato un file e poi eliminato su un server FTPUn protocollo utilizzato per il trasferimento dei file tra i computer di rete. remoto:
Function Random(N)
Random = Int(N*Rnd)
End Function
Function Main
Dim FTPobj As Object
Dim fl As Object
'configurare secondo necessità
ip = "127.0.0.1"
port = 21
mode = FALSE
username = "anonymous"
cr = Chr(13) + Chr(10)
Set fl = file.Connect("127.0.0.1")
fl.Open "testfile.txt", GENERIC_WRITE, CREATE_ALWAYS
fl.writeline("Questo è un file di prova")
'avvio della randomizzazione
Randomize
fl.Close
'generazione di un numero casuale da aggiungere ai nomi di file
For K = 1 To 10
randomnumber = randomnumber & CStr(Random(10))
Next
tempFile = "lnssFile" + randomnumber
'creazione di una nuova connessione ftp
Set FTPobj=FTP.Connect (ip,21,mode,username,password)
If FTPobj.PutFile ( "testfile.txt", tempFile ) = TRUE Then
echo "Accesso scrittura file disponibile nell’ftp anonimo in " + ip & cr
If FTPobj.DeleteFile ( tempFile ) = TRUE Then
echo "Accesso eliminazione file disponibile nell’ftp anonimo in " + ip& cr
Else
echo "Accesso eliminazione file non disponibile. È possibile che sia necessario eliminare i file creati da GFI LanGuard" & cr
End If
End If
fl.Delete("testfile.txt")
End Function