download file dialog

[jon cooper]

Does anyone know how to display the "download a file" dialog box using vbscript? I am looking for a script that will prompt the user "Open from current location" and "or, Save to disk" no matter which type of file is referenced. I.E., now if I do an href to a Word Document (in html) IE5 opens the doc automatically in its Word Browser thing, I want a prompt.

Thanks for any help.

Use the DoFileDownload API function.

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


Private Sub Command1_Click()

   Text1.text = "http://www.mysite.com/myfile.zip"
   Dim sDownload As String
   sDownload = StrConv(Text1.text, vbUnicode)
   Call DoFileDownload(sDownload)

End Sub

[jon cooper]

Thanks alot, it looks like that'll be exactly what I need.