Foxtable(狐表)用户栏目专家坐堂 → [求助]文件下载


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

主题:[求助]文件下载

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/4/23 10:38:00 [显示全部帖子]


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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/4/23 11:25:00 [显示全部帖子]

看2楼第二个帮助。

或者:http://www.foxtable.com/mobilehelp/topics/0160.htm

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/4/23 14:39:00 [显示全部帖子]

一次只能下载一个

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/4/23 14:53:00 [显示全部帖子]

放到循环里就行了

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/4/23 15:21:00 [显示全部帖子]

下文件用GetFile
http://www.foxtable.com/mobilehelp/topics/0160.htm

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/4/23 15:28:00 [显示全部帖子]

完整代码呢

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/4/23 15:40:00 [显示全部帖子]

Dim xzp As List(Of String)
xzp = Tables("hx_Table1").Current.DataRow.Lines("KK")
Dim ii As Integer
For i As Integer = 0 To xzgrzp.Count - 1
If FileSys.FileExists(ProjectPath & "Attachments\hlp\" & xzp (i)) = False Then
Dim hlyzlxz As New HttpClient("http://192.1**.1**.1**:***/zz.htm")
 hlyzlxz.FormData.Add("gp" , xzp (i))
   ii=i 
    End If
If hlyzlxz.GetFile(ProjectPath & "Attachments\hlp\" & xzp (ii)) Then
        MessageBox.show("文件下载成功", "提示1")
    Else
        MessageBox.show("文件下载失败", "提示2")
    End If


 回到顶部