[VBnet Internet] DoFileDownload: Download Files Using IE's Download Dialog


	Visual Basic Internet Routines DoFileDownload: Download Files Using IE's Download Dialog

Posted:	Saturday January 08, 2000
Updated:	Tuesday August 12, 2008

Applies to:	VB4-32, VB5, VB6
Developed with:	VB6, Windows NT4
OS restrictions:	None
Author:	Brad Martinez

Related:	DoFileDownload: Customize the IE Download Dialog FtpGetFile: Download Files via FTP FtpFindFirstFile: Connect and Retrieve FTP File Listings FtpFindFirstFile: Download Files via FTP with a Download Progress Callback

Prerequisites

Established internet connection, Internet Explorer 4 or greater.

Some things are so easy!

While the FTP demos listed under Related Topics provide a robust means to list and download bulk files from a FTP server, there may be occasions when you want to simply download one file and provide a familiar interface to the user. This code, provided by Brad Martinez, shows how to display the IE file download dialog. The dialog takes care of all aspects of the interface, including the progress bar, animation and statistics. The code is easily integrated into any application requiring this functionality, including the VBnet FtpFindFirstFile: Connect and Retrieve FTP File Listings demo.

BAS Module Code

None.

Form Code

Toss a command button and a textbox onto a form. Add a full FTP path and filename to the textbox and add the following code:

Option Explicit

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright ©1996-2008 VBnet, Randy Birch, All Rights Reserved.
' Some pages may also contain other copyrights by the author.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Distribution: You can freely use this code in your own
'               applications, but you may not reproduce 
'               or publish this code on any web site,
'               online service, or distribute as source 
'               on any media without express permission.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

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


Private Sub Command1_Click()
   
   Dim sDownload As String
   
   sDownload = StrConv(Text1.Text, vbUnicode)
   Call DoFileDownload(sDownload)
   
End Sub

Comments

PayPal Link