SetCurrentDirectory
SetCurrentDirectory 用于设置远程 ftp 服务器上的目录位置。 任何文件功能（例如上传或下载）都与该目录相关。
语法
SetCurrentDirectory(STRING 目录)
其中：
目录是字符串。
返回
布尔。 如果返回 TRUE，表明函数成功，否则，将意味着返回错误。 当返回 FALSE 后，FTPObject.LastError 将返回 WIN32 错误代码。
示例
设置当前工作目录的示例：
函数 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 函数