Web共享文件，隐藏文件路径方式下载

Private Sub SaveFile(ByVal reportNumber As String, ByVal logicFullFileName As String, ByVal reportType As String)

Dim fullFileName As String = Server.MapPath(logicFullFileName)

Dim downFile As FileInfo = New FileInfo(fullFileName)

If Not File.Exists(fullFileName) Then

Response.Write("The file not exist.")

Exit Sub

End If

Response.Clear()

Response.AddHeader("Content-Disposition", "attachment; filename=" + HttpUtility.UrlEncode(reportNumber & "." & reportType))

Response.AddHeader("Content-Length", downFile.Length.ToString())

Response.ContentType = "application/octet-stream"

Response.TransmitFile(fullFileName)

Response.End()

End Sub