CreateDirectory
CreateDirectory cria um novo diretório no servidor FTPProtocolo usado para transferir arquivos entre computadores da rede. remoto.
Sintaxe
CreateDirectory(CADEIA DE CARACTERES diretório)
Na qual:
Diretório
é uma cadeia de caracteres.
Retorno
Booleano. Se retornar TRUE
, a função foi bem-sucedida; caso contrário, houve um erro. Se retornar FALSE
, FTPObject.LastError
retornará o código do erro WIN32.
Exemplo
Um exemplo que repete o diretório operacional do FTP atual:
Function Random(N)
Random = Int(N*Rnd)
End Function
Function Main
Dim FTPobj as Object
'configure conforme o necessário
ip = "127.0.0.1"
port = 21
mode = FALSE
username = “anônimo"
password = “test@lnss.com”
cr = Chr(13) + Chr(10)
'inicializar aleatório
Randomize
'agora, gere um número aleatório a ser adicionado aos nomes de arquivo
for K = 1 to 10
randomnumber = randomnumber + cstr(Random(10))
next
tempDir = "lnssDir" & randomnumber
'crie uma nova conexão FTP
Set FTPobj=FTP.Connect (ip,21,mode,username,password)
'tente criar um novo diretório depois da conexão anônima ao FTP
if FTPobj.CreateDirectory ( tempDir ) = TRUE then
echo “Acesso para criação de diretório disponível para FTP anônimo em " + ip & cr
'agora, tente excluir o diretório
if FTPobj.RemoveDirectory ( tempDir ) = TRUE then
echo “Acesso para exclusão do diretório disponível para FTP anônimo em " + ip & cr
else
echo “O acesso de exclusão ao diretório não está disponível. Você pode precisar excluir diretórios criados pelo GFI LanGuard" & cr
End If
End If
End Function