以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  上传的时候有没有办法连目录也一起上传？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55490)
--  作者：jinzhengbe
--  发布时间：2014/8/18 1:03:00
--  上传的时候有没有办法连目录也一起上传？
Dim ftp1 As New FtpClient
ftp1.Host="hanng.com"
ftp1.Account = "pic"
ftp1.Password = "Ze"

For Each File As String In FileSys.GetFiles("d:\\图片\\")
   ftp1.upload(file, "/" & Filesys.getname(file),True)
Next
If     Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
--  作者：Bin
--  发布时间：2014/8/18 8:32:00
--  
没办法,先新建一个目录呗.
--  作者：有点甜
--  发布时间：2014/8/18 9:07:00
--  

 参考语法，判断是否存在此目录，如果不存在，就新建一个目录。

 

 http://www.foxtable.com/help/topics/1410.htm