使用chilkatax的ftp控件 ,实现了在根目录下创建文件夹,怎么在根目录下的已存在的文件夹里创建文件夹呢????下面是只能在根目创建的代码,
Private Sub cmdCreateDirectory_Click()
ftp.HostName = "10.6.27.111" 'ftp服务器地址
ftp.username = "ftp111" '用户名
ftp.password = "ftp111" '密码
' 连接并登陆到 FTP server.
Dim success As Long
success = ftp.Connect()
If (success <> 1) Then
Debug.Print ftp.LastErrorText
Exit Sub
End If
' Create a new directory on the FTP server:
success = ftp.CreateRemoteDir("文件夹name")
If (success <> 1) Then
Debug.Print ftp.LastErrorText
Exit Sub
End If
success = ftp.Disconnect()
End Sub