LastError
LastError contém o código de erro WIN32 definido por vários métodos quanto estes retornam FALSE e falha. Se necessário, é preciso verificar o valor antes de chamar outro método que possa determinar essa propriedade em caso de erro.
Sintaxe
FTPobj.LastError: CADEIA DE CARACTERES (read)
Exemplo
Um exemplo que determina o diretório operacional atual:
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"
directory = "/pub/"
'crie uma nova conexão FTPProtocolo usado para transferir arquivos entre computadores da rede.
Set FTPobj=FTP.Connect (ip,21,mode,username,password)
'Define o diretório operacional atual como /pub/
RET = FTPobj.SetCurrentDirectory (diretório)
if RET Then
echo “Alteração do diretório atual para " + directory + " bem-sucedida"
else
echo “falha ao determinar dir atual: " + CStr(FTPobj.LastError)
End If
End Function