图片列批量下载的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 图片列批量下载的问题

共有6888人关注过本帖树形打印复制链接主题：图片列批量下载的问题

有点蓝

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

加好友

发短信

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

Post By：2022/8/27 16:30:00 [显示全部帖子]

Dim ftp As New ftpclient

ftp.host = "***"

ftp.Account = "***"

ftp.password = "***"

ftp.Port = "21"

ftp.UTF8 = False

Dim 默认目录 As String = ProjectPath & "RemoteFiles\" & dr("企业名称") & "\" & dr("年度") & "\隐患排查治理台账\"

If FileSys.DirectoryExists(默认目录) = False Then

If FileSys.CreateDirectory(默认目录) = False;se Then

MessageBox.Show("创建目录失败")

Return

End If

For Each dr As DataRow In DataTables("隐患排查整改报告").Select("[选择] = true")

Dim path1 As String = 默认目录 & FileSys.GetName(dr("隐患照片"))

ftp.Download(dr("隐患照片"), path1, True)

Dim path2 As String = 默认目录 & FileSys.GetName(dr("验证照片"))

ftp.Download(dr("验证照片"), path2, True)

ftp.Close

有点蓝

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

加好友

发短信

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

Post By：2022/8/28 20:21:00 [显示全部帖子]

if DataTables("隐患排查整改报告").compute("count(选择)",[选择] = true and (隐患照片 is null or 验证照片 is null)") > 0 then

MessageBox.Show(" 部分行缺少隐患照片或者验证照片,请先上传照片!")