ファイルをダウンロードする際の進行状況を取得するには？ (ID:119534)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 URLDownloadToFile APIを使用してWEB上に配置されたファイルを 自動でダウンロードしようと考えています。 他のサイトで見つけたソースを参考にダウンロードすることは できたのですが、ダウンロードの進行状況を表示させることが できなくて困っています。 WEB上のファイルサイズを取得できればローカルファイルとの差異 からProgressbarを出せるかとも思うのですが、その取得方法が わかりません。それとも、DHTMLオブジェクトなどで何か情報が 取れたり、他のAPIを使用して表示できたりできるのでしょうか？ よろしくお願いします。（環境：VB6.0） ＜ダウンロードソース＞ Option Explicit Private Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" (ByVal pCaller As Long, _ ByVal szURL As String, ByVal szFileName As String, _ ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Private Sub Command1_Click() Dim SaveFname ,Dfile As String Dim Res As Long SaveFname = "C:\sample.txt" DFile = "http://www.aaa.com/test/readme.txt" Res = URLDownloadToFile(0, DFile, SaveFname, 0, 0) DoEvents If Res = 0 Then Lavel1.text = "正常終了" Else Lavel1.text = "エラー" End If End Sub