谁有Ftp整个文件夹的现成的代码？

Question

如题，給个连接也可以。
现在拿分不容易，給的分就少了，
提问之前还掂量掂量。

Answer 1

再补充一下，最好是用inet控件上传的，其他的看不懂，
急着先上，麻烦哪位大哥了，分少可以再加阿

Answer 2

单个文件上传都可以了，可是当上传整个目录，多个文件的时候，就不懂的处理了，
我第一次用inet这东西，不知道怎样让他上传完一个之后接着上传另外一个文件。
Help!

Answer 3

我贴出代码吧:
inet1.URL=ftp://username:password@hostname/document  
　　inet1.Protocol=2-icFTP  
　　inet1.RemoteHost=hostname  
　　inet1.RemotePort=21  
　　inet1.Username=username  
　　inet1.Password=password  
For each Item in oFolder.files
     curFile=oFolder.path & "\" & Item.name
     inet1.execute inet1.url, "put " & curFile & "/目标目录/目标文件名"
Next 
程序上传完一个文件之后就不运行了，怎样让他传送完之后再接着传下一个文件阿。

Answer 4

加分 本问题加到60分
Help 很急 解决立刻給分，
相信有做过的朋友一下就看解决了。
先谢谢啦