關系文件下載的問題

Question

各位好﹕我想從網站上下載几個文件﹐﹐并顯示出下載進度條﹐和速度﹐﹐請問我該怎么做﹐﹐謝謝

Answer 1

用IE来下载文件
Option Explicit
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Private Sub Command1_Click()   
Dim sDownload As String
sDownload = StrConv(Text1.Text, vbUnicode)
Call DoFileDownload(sDownload)   
End SubPrivate Sub Form_Load()
Text1.Text = "http://insoft.51.net/soft/filesend.zip" '这里是你要下载的文件.
Form1.Caption = "Downloading....."
End Sub