Foxtable(狐表)用户栏目专家坐堂 → [求助]如何做才能让FTP上传文件哪里可以批量上传文件!


  共有2104人关注过本帖树形打印复制链接

主题:[求助]如何做才能让FTP上传文件哪里可以批量上传文件!

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


加好友 发短信
等级:幼狐 帖子:69 积分:799 威望:0 精华:0 注册:2017/8/2 12:34:00
[求助]如何做才能让FTP上传文件哪里可以批量上传文件!  发帖心情 Post By:2018/3/20 15:12:00 [只看该作者]

 请问下要怎么弄才可以批量上传文件,点一次只能上传一次文件没发用。。。论坛里面翻遍了。。。但还是不怎么理解!麻烦各位大大帮我解决解决。。。谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/20 15:33:00 [只看该作者]

参考代码

 

Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
dlg.MultiSelect = True
If dlg.showDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ftp1 As new  ftpclient
    ftp1.host="*****"
    ftp1.Account =  "ftp003"
    ftp1.password =  "*****"
   
    For Each f As String In dlg.FileNames
        If  ftp1.Upload(f,"/" & filesys.GetName(f) , True) = True Then
            Messagebox.show(dlg.FileName & "上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Messagebox.show(dlg.FileName & "上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    Next
    ftp1.Close
End If


 回到顶部
客人(14.155.*.*)
  3楼


  发帖心情 Post By:2018/3/20 16:40:00 [只看该作者]

 Hi,甜甜老师。。请问有没有办法像狐表的FTP里面那个显示界面可以看到文件夹。。。能增加文件夹,并指定上传文件的存放位置。。因为不同的时候需要上传的位置不一样。。。要实现的话是不是要弃用自带的管理器再重新做一个?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/20 18:06:00 [只看该作者]

以下是引用客人(14.155.*.*)在2018/3/20 16:40:00的发言:
 Hi,甜甜老师。。请问有没有办法像狐表的FTP里面那个显示界面可以看到文件夹。。。能增加文件夹,并指定上传文件的存放位置。。因为不同的时候需要上传的位置不一样。。。要实现的话是不是要弃用自带的管理器再重新做一个?

 

点击【增加】弹出的窗口,上传按钮只能一次选择一个(这个是foxtable设计的问题,也算是bug)

 

你可以点击【管理】按钮弹出窗口,这个时候可以选择上传多个文件的。


 回到顶部