DeleteFiles
Permite borrar archivos en el servidor FTPProtocolo que se utiliza para transferir archivos entre equipos de redes. remoto.
Sintaxis
DeleteFile(file de CADENA)
Donde:
File
es 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