Free for PREMIUM members
<%@ 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
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
Premium members get this course for $108.00.
Premium members get this course for $174.99.
Premium members get this course for $62.50.
Premium members get this course for $95.20.
Premium members get this course for $159.20.