Take your career to the next level with convenient certification training. Start your 7-day Free Trial
Experts Exchange Solution brought to you by
"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.
<%@ Page language="vb" runat="server" explicit="true" strict="true" %>
<script language="vb" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
Dim filenames As String = Request.QueryString("file")
'-- if something was passed to the file querystring
If filenames <> "" Then
Dim strRequest As String = "./upload/" & Request.QueryString("file")
Dim fileNameasSave As String = Request.QueryString("name")
'get absolute path of the file
Dim path As String = Server.MapPath(strRequest)
'get file object as FileInfo
Dim file As System.IO.FileInfo = New System.IO.FileInfo(path)
'-- if the file exists on the server
If file.Exists Then
'set appropriate headers
Response.AddHeader("Content-Disposition", "attachment; filename=" & fileNameasSave)
Response.ContentType = "application/octet-stream"
'if file does not exist
Response.Write("This file does not exist.")
'nothing in the URL as HTTP GET
Catch ex As Exception
Response.Write("Please provide a file to download.")
Open in new window
Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment