CreateDirectory
CreateDirectory 可创建远程 ftp 服务器上的新目录。
语法
CreateDirectory(STRING 目录)
其中：
目录是字符串。
返回
布尔。 如果返回 TRUE，表明函数成功，否则，将意味着返回错误。 当返回 FALSE 后，FTPObject.LastError 将返回 WIN32 错误代码。
示例
回显当前 ftp 工作目录的示例：
Function Random(N)
Random = Int(N*Rnd)
End 函数
函数 Main
Dim FTPobj as Object
'按需配置
ip = "127.0.0.1"
port = 21
mode = FALSE
username = "anonymous"
password = “test@lnss.com”
cr = Chr(13) + Chr(10)
'初始化随机选择
Randomize
'现在生成一个要添加到文件名的随机编号
for K = 1 to 10
randomnumber = randomnumber + cstr(Random(10))
下一
tempDir = "lnssDir" & randomnumber
'新建 ftp 连接
Set FTPobj=FTP用于在网络计算机之间传输文件的协议。.Connect (ip,21,mode,username,password)
'匿名 ftp 连接后，尝试创建一个新的目录
if FTPobj.CreateDirectory ( tempDir ) = TRUE then
echo "目录创建访问权限对下列位置的匿名 ftp 可用" + ip & cr
'现在尝试删除目录
if FTPobj.RemoveDirectory ( tempDir ) = TRUE then
echo "目录删除访问权限对下列位置的匿名 ftp 可用" + ip & cr
else
echo "目录删除访问权限不可用。 您可能需要删除 GFI LanGuard 创建的目录" & cr
End If
End If
End 函数