老师，ftp多文件用代码怎么下载呢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老师，ftp多文件用代码怎么下载呢

共有3131人关注过本帖树形打印复制链接主题：老师，ftp多文件用代码怎么下载呢

cd_tdh

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3206 积分：21316 威望：0 精华：0 注册：2016/3/28 16:57:00

老师，ftp多文件用代码怎么下载呢 发帖心情

Post By：2020/9/2 17:28:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20200902172715.png

Dim r As Row = Tables("采购合同管理").Current
Dim dlg As New SaveFileDialog
Dim ftp1 As new ftpclient
ftp1.host="120.***.0"
ftp1.Account = "ft1"
ftp1.password = "19*******9"
If ftp1.Download(r("采购合同扫描件"),dlg.FileName,True) = True Then
Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

[此贴子已经被作者于2020/9/2 17:28:36编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/9/2 17:34:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/2717.htm

cd_tdh

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3206 积分：21316 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2020/9/3 9:11:00 [只看该作者]

老师，集合位置不知道怎么写

Dim ftp As New FtpClient
ftp.Host="120*****.0"
ftp.Account = "ft****1"
ftp.Password = "1********9"
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
Dim dr As DataRow = Tables("采购合同管理").Current.DataRow
Dim lst As List(of String) = dr.Lines("采购合同扫描件") '获取文件集合
'msgbox(lst.Count) '文件数量
For Each fl As String In FileSys.GetFiles(lst)
    If ftp.Download(fl,dlg.FileName,True) = True   Then
        messagebox.Show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        messagebox.Show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
Next

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/9/3 9:30:00 [只看该作者]

For Each fl As String In lst

'msgbox(fl)

cd_tdh

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3206 积分：21316 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2020/9/3 9:42:00 [只看该作者]

msgbox(fl)弹出来是文件的数量，然后报错

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20200903094052.png

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/9/3 10:08:00 [只看该作者]

msgbox(fl)绝对不可能是数量

cd_tdh

小大 7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3206 积分：21316 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2020/9/3 10:28:00 [只看该作者]

开始测试把附件列内容改到了，这样下载下来只有一个文件，这个文件名怎么处理呢？

Dim ftp As New FtpClient
ftp.Host="120********0"
ftp.Account = "ft*****1"
ftp.Password = "1*******9"
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif;*jpeg" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim dr As DataRow = Tables("采购合同管理").Current.DataRow
    Dim lst As List(of String) = dr.Lines("采购合同扫描件") '获取文件集合
    For Each fl As String In lst
        If ftp.Download(fl,dlg.FileName,True) = True   Then
            messagebox.Show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            messagebox.Show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    Next
End If