LastError

LastError 包含各种方法返回 FALSE 并失败后设置的 WIN32 错误代码。 在调用可设置该属性的其他方法之前,如果发生错误,则在必要的情况下应检查该值。

语法

FTPobj.LastError: STRING (read)

示例

设置当前工作目录的示例:

函数 Main

Dim FTPobj as Object

'按需配置

ip = "127.0.0.1"

port = 21

mode = FALSE

username = "anonymous"

password = "test@lnss.com"

directory = "/pub/"

'新建 ftp 连接

Set FTPobj=FTP用于在网络计算机之间传输文件的协议。.Connect (ip,21,mode,username,password)

'设置当前工作目录至 /pub/

RET = FTPobj.SetCurrentDirectory (directory)

if RET Then

echo "Set current directory to " + directory + " succeeded"

else

echo "无法设置当前目录: " + CStr(FTPobj.LastError)

End If

End 函数