by BattleStar-Galactica » Fri Mar 31, 2006 5:00 pm
here is the solution
Private Declare Function DoFileDownload Lib "shdocvw" _
(ByVal lpszFile As String) As Long
Private Sub Command1_Click()
Dim sDownload As String
sDownload="http://www.domaine.com/file.mp3"
sDownload = StrConv(sDownload, vbUnicode)
Call DoFileDownload(sDownload)
End Sub
it will promt the download dialog of internet explorer