Someone asked "How to download files with status

[Serge]

So here it is:

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long


Private Sub Command1_Click()
   
   Dim strDownload As String
   
   strDownload = "http://www.MySite.com/myfile.zip"
   strDownload = StrConv(strDownload , vbUnicode)
   Call DoFileDownload(strDownload )
   
End Sub

This will show IE's download dialog box.