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"
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