lotus C/S 如何创建FTP文件夹 或者直接上传文件夹

lotus C/S 怎么创建FTP文件夹 或者直接上传文件夹
连接FTP上传文件可以了，但上传文件夹或者创建文件夹不会，请高手指点，谢谢了，急。

------解决方案--------------------

探讨

本地有文件夹，目标是想在FTP上增加个文件夹，创建或上传文件夹，然后再上传文件，现在往FTP某文件夹上传文件是可以的，就文件夹上传或新建不了~~

------解决方案--------------------
可以找找vb的代码，制作成一个com组件，然后调用，你也可以直接把代码翻译过来，ftp window本身就提供API。比如ftpfindfirstfile
------解决方案--------------------
// 建立目录
private boolean createDir(String dir) {
try {
String pathName = ftpClient.pwd();
pathName = pathName + "/" + dir;
ftpClient.mkdir(dir);
return true;
} catch (FTPException e) {
// TODO Auto-generated catch block
e.printStackTrace();
return false;
} catch (IOException e) {
// TODO Auto-generated catch block
e.printStackTrace();
return false;
}
}
------解决方案--------------------
Dim fso, tf,wsh,oExec
Set fso = CreateObject("Scripting.FileSystemObject")
Set wsh=createobject ("wscript.shell" )
Set tf = fso.CreateTextFile("ftp.txt",True)
tf.Write "open " & ftpIp &Chr(13)&Chr(10) 'ftp地址
tf.Write ftpuser &Chr(13)&Chr(10) '登录用户
tf.Write ftppwd&Chr(13)&Chr(10) '用户密码
tf.Write ”mkdir domino“ &Chr(13)&Chr(10)
tf.Write ”mkdir domino/ftptest“ &Chr(13)&Chr(10)
......
tf.Write "bye"&Chr(13)&Chr(10)
tf.Close
'运行
oExec=wsh.run("ftp -s:ftp.txt",0,True)

BS下没问题，CS没试过，呵呵