Foxtable(狐表)用户栏目专家坐堂 → 上传的时候有没有办法连目录也一起上传?


  共有2552人关注过本帖平板打印复制链接

主题:上传的时候有没有办法连目录也一起上传?

帅哥哟,离线,有人找我吗?
jinzhengbe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1062 积分:9781 威望:0 精华:0 注册:2012/3/13 5:23:00
上传的时候有没有办法连目录也一起上传?  发帖心情 Post By: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

 回到顶部