CreateDirectory
CreateDirectory crea un nuevo directorio en el servidor FTPProtocolo que se utiliza para transferir archivos entre equipos de redes. remoto.
Sintaxis
CreateDirectory(directory de CADENA)
Donde:
Directoryes una cadena.
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 reproduce el directorio de funcionamiento del FTP actual:
Function Random(N)
Random = Int(N*Rnd)
End Function
Function Main
Dim FTPobj 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)
'inicializar selección aleatoria
Randomize
'ahora generar un número aleatorio que se agregará a los nombres de archivos
for K = 1 to 10
randomnumber = randomnumber + cstr(Random(10))
next
tempDir = "lnssDir" & randomnumber
'create a new ftp Connection
Set FTPobj=FTP.Connect (ip,21,modo,nombredeusuario,contraseña)
'intentar crear un nuevo directorio después de una conexión FTP anónima
if FTPobj.CreateDirectory ( tempDir ) = TRUE then
echo "Directory create access is available to anonymous ftp at " + ip & cr
'ahora intentar eliminar el directorio
if FTPobj.RemoveDirectory ( tempDir ) = TRUE then
echo "Directory Delete access is available to anonymous ftp at " + ip & cr
else
echo "Directory Delete access is not available. You might need to Delete directories created by GFI LanGuard" & cr
End If
End If
End Function