注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

樱之花

叶散的时候,你明白欢聚;花谢的时候,你明白青春.

 
 
 

日志

 
 
关于我

分类中“我的实验室”是我在日常工作中的一些知识总结,有些写的比较匆忙,可能大家在阅读时会产生困扰,后期有时间我会重新整理编辑,谢谢大家的到访,您们的支持是我前进的动力!

网易考拉推荐

001 VB.NET获取远程文件到本地  

2011-09-19 15:21:17|  分类: 我的实验室 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

代码如下:

    Private Sub GetUrlFile(ByVal url As String, ByVal filename As String)
        '先通过URI建立一个WebRequest
        Dim wr As WebRequest = WebRequest.Create(url)
       '然后通过其GetResponse方法得到一个WebResponse
        Dim res As WebResponse = wr.GetResponse
        Dim fs As Stream
       '通过WebResponse.GetResponseStream方法得到的流
        fs = res.GetResponseStream
        Dim fw As FileStream

        '创建日期文件夹
        Dim foldname As String = Format(Now, "yyyy-MM-dd")
        If Directory.Exists(foldname) = False Then
            Directory.CreateDirectory(foldname)
        End If

        '打开或创建文件以写入数据
        fw = File.OpenWrite(foldname & "/" & filename & ".tif")
        Dim b(1024) As Byte

       '按块读取数据流
        Dim br As Integer = fs.Read(b, 0, b.Length)

        '循环读取并写入文件
        While br > 0
            fw.Write(b, 0, br)
            br = fs.Read(b, 0, b.Length)
        End While

        '关闭数据流
        fw.Close()
        fs.Close()
    End Sub

  评论这张
 
阅读(876)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017