VB2003でファイルのダウンロードについて教えて

質問

Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
Dim res As WebResponse = req.GetResponse()
Dim resStream As Stream = res.GetResponseStream()
Dim fs As New System.IO.FileStream(SaveName, FileMode.Create, FileAccess.Write)
Dim b As Integer
While True
b = resStream.ReadByte()
If b = -1 Then Exit While
fs.WriteByte(Convert.ToByte(b))
End While

VB.NET2003ですが上記の方法でファイルをダウンロードしているのですが、
ブラウザで表示して転送される場合は３０秒ほどなのですが、
この方法でダウンロードすると１３０秒くらいかかってしまいます。
ディスクに書き込む動作が足を引っ張っているのかと思って
下から２行目を消して計測してみたのですがそれでも１０秒ほどしか短縮しませんでした。
タスクマネージャーで確認してもCPUリソースが50をずっと超えているのですが
ブラウザなどでダウンロードする時のように高速でCPUに負担をかけずにダウンロードするには
どんな方法でやれば良いでしょうか？
よろしくお願い致します。

回答No.1

redfox63 · ベストアンサー

1バイト毎読み込んで、書き込んでいれば遅いのは当然でしょう

dim buf(8191) as Byte, nn, nLen, cnt as Integer

nn = 0
cnt = 0
do
　　' バッファに読み込む、読み込まれた数がnLenに代入される
　　nLen = resStream.Read( buf, 0, buf.Length )
　　if nLen > 0 then
　　　　' 読み込んだバイト数分書き込む
　　　　fs.Write( buf, 0, nLen )
　　　　' 途中経過が必要なければ以下をコメントアウト
　　　　nn += nLen
　　　　cnt += 1
　　　　if cnt mod 20 = 19 then
　　　　　　Application.doEvents()
　　　　　　Label1.Text = nLen.ToString()
　　　　end if
　　　　' ここまで
　　end if
loop while nLen > 0

といった具合にして見ましょう
配列bufの大きさは読み込むファイルや、Web環境に応じて加減してください
上記の例では 8KBごと読むようにしております

お礼

ご回答ありがとうございます。
完璧なサンプルを書いて頂いて大変ありがとうございます。
ダウンロードが遅いのとCPU負荷が高いという両方が解決できました。
ありがとうございました。