CreateDirectory

CreateDirectory crea una nuova directory sul server ftp remoto.

Sintassi

CreateDirectory(STRING directory)

Dove:

  • Directory è una stringa.
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

Un esempio in cui viene eseguito il comando echo sulla directory di lavoro FTPUn protocollo utilizzato per il trasferimento dei file tra i computer di rete. corrente:

Function Random(N)

Random = Int(N*Rnd)

End Function

Function Main

Dim FTPobj as Object

'configurare secondo necessità

ip = "127.0.0.1"

port = 21

mode = FALSE

username = "anonymous"

password = "test@lnss.com"

cr = Chr(13) + Chr(10)

'avvio della randomizzazione

Randomize

'generazione di un numero casuale da aggiungere ai nomi di file

for K = 1 to 10

randomnumber = randomnumber + cstr(Random(10))

next

tempDir = "lnssDir" & randomnumber

'creazione di una nuova connessione ftp

Set FTPobj=FTP.Connect (ip,21,mode,username,password)

'tentativo di creare una nuova directory dopo una connessione ftp anonima

if FTPobj.CreateDirectory ( tempDir ) = TRUE then

echo "Accesso creazione directory disponibile nell’ftp anonimo in " + ip & cr

'tentativo di eliminare la directory

if FTPobj.RemoveDirectory ( tempDir ) = TRUE then

echo "Accesso eliminazione directory disponibile nell’ftp anonimo in " + ip & cr

else

echo "Accesso eliminazione directory non disponibile. È possibile che sia necessario eliminare le directory create da GFI LanGuard" & cr

End If

End If

End Function