PutFile
PutFile carrega um arquivo do disco local para o servidor FTPProtocolo usado para transferir arquivos entre computadores da rede. remoto.
Sintaxe
PutFile(CADEIA DE CARACTERES arquivolocal, CADEIA DE CARACTERES arquivoremoto)
Na qual:
ArquivoLocalé uma cadeia de caracteres (exemplo:readme.txt)ArquivoRemotoé uma cadeia de caracteres (exemplo:readme.txt)
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 carrega um arquivo e o exclui no servidor do FTP remoto:
Function Random(N)
Random = Int(N*Rnd)
End Function
Function Main
Dim FTPobj As Object
Dim fl 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)
Set fl = file.Connect("127.0.0.1")
fl.Open "arquivoteste.txt", GENERIC_WRITE, CREATE_ALWAYS
fl.writeline(“Este é um arquivo de teste")
'inicializar aleatório
Randomize
fl.Close
'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
tempFile = "lnssFile" + randomnumber
'crie uma nova conexão FTP
Set FTPobj=FTP.Connect (ip,21,mode,username,password)
If FTPobj.PutFile ( "arquivoteste.txt", tempFile ) = TRUE Then
echo "echo “Acesso para gravação de arquivo disponível para FTP anônimo em “ + ip & cr
If FTPobj.DeleteFile ( tempFile ) = TRUE Then
echo “Acesso para exclusão do arquivo disponível para FTP anônimo em " + ip& cr
Else
echo “O acesso de exclusão ao arquivo não está disponível. Você pode precisar excluir arquivos criados pelo GFI LanGuard" & cr
End If
End If
fl.Delete("arquivoteste.txt")
End Function