数据表有个网址列，网址列是存放在钉钉服务器上的图片材料，现用下面代码进行下载，发现下载的速度比较慢，如何编码才能提高效率，谢谢!
For Each dr As DataRow In DataTables("审批通过汇总_2018").DataRows
Dim path As String=projectpath & "\证明材料\" & dr("gzxx")
If FileSys.DirectoryExists(path)=False Then
FileSys.CreateDirectory(path)
End If
Dim sfzz As New HttpClient(dr("sfztp "))
sfzz.GetFile(path & " \" & dr("xm") & "sfzz.JPG")
Dim lqtzs As New HttpClient(dr("lqtzs"))
lqtzs.GetFile(path & "\" & dr("xm") & "lqtzs.JPG")
Next
加好友 
发短信
Post By：2019/5/31 1:10:00 [只看该作者]
