PutFile
PutFile carga un archivo del disco local en el servidor FTPProtocolo que se utiliza para transferir archivos entre equipos de redes. remoto.
Sintaxis
PutFile(localfile de CADENA, remotefile de CADENA)
Donde:
LocalFilees una cadena (por ejemplo,readme.txt)RemoteFilees una cadena (por ejemplo,readme.txt)
Devolución
Booleano. Si la devolución es TRUE, significa que la función ha tenido éxito; si el resultado es otro, significa que se ha producido un error. Cuando la devolución es FALSE, FTPObject.LastError emitirá el código de error WIN32.
Ejemplo
Un ejemplo que carga un archivo y lo elimina en un servidor FTP remoto:
Function Random(N)
Random = Int(N*Rnd)
End Function
Function Main
Dim FTPobj As Object
Dim fl As Object
'configurar según sea necesario
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 "testfile.txt", GENERIC_WRITE, CREATE_ALWAYS
fl.writeline("This is a testfile")
'inicializar selección aleatoria
Randomize
fl.Close
'ahora generar un número aleatorio que se agregará a los nombres de archivos
For K = 1 To 10
randomnumber = randomnumber & CStr(Random(10))
Siguiente
tempFile = "lnssFile" + randomnumber
'crear a una nueva conexión FTP
Set FTPobj=FTP.Connect (ip,21,modo,nombredeusuario,contraseña)
If FTPobj.PutFile ( "testfile.txt", tempFile ) = TRUE Then
echo "File write access is available to anonymous ftp at " + ip & cr
If FTPobj.DeleteFile ( tempFile ) = TRUE Then
echo "File Delete access is available to anonymous ftp at " + ip& cr
Else
echo "File Delete access is not available. You might need to Delete files created by GFI LanGuard" & cr
End If
End If
fl.Delete("testfile.txt")
End Function