< Dim FileFullPath As String = System.IO.Path.GetFullPath(psPhysicalFileName) Dim FileExtension As String = System.IO.Path.GetExtension(FileFullPath) ' Determine the original file name. ' When the download window opens, show the original file name in the File Name textbox. Dim OriginalFileName As String = System.IO.Path.GetFileName(psOriginalFileName) Dim FileType As String = String.Empty Dim FileContentType As String = String.Empty Try If Not IsDBNull(FileExtension) Then FileType = LCase(FileExtension) ' Determine the content type based on the file extension. Select Case FileType Case ".html" FileContentType = "text/HTML" Case ".gif" FileContentType = "image/GIF" Case "jpeg" FileContentType = "image/JPEG" Case ".txt" FileContentType = "text/plain" Case ".csv" FileContentType = "text/csv" End Select End If ' The dialog should show the original file name. If (forceDownload) Then Response.AppendHeader("content-disposition", _ "attachment; filename=" & OriginalFileName) End If ' Sent the content type so that browser will know how to handle the file. If FileType <> String.Empty Then Response.ContentType = FileContentType End If ' Initiate the download Response.WriteFile(FileFullPath.ToString()) ' Show the link to all the user to download the file if necessary. If Not LabelMessage Is Nothing Then lblMessage.Text = "You have downloaded the file " & OriginalFileName End If Response.End() Catch oEx As Exception ' Show the error message if needed. If Not LabelMessage Is Nothing Then lblMessage.Text = "Error downloading the file " & OriginalFileName End If Finally ' Clean up objects End Try >
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)