学步园

    Private Sub DownLoad(ByVal filePath As String)

        Dim Fi As New FileInfo(filePath)
'filePath文件路径
        If Fi.Exists Then
            Dim fs As New FileStream(filePath, FileMode.Open)
            Dim bytes As Byte() = New Byte(CInt(fs.Length) - 1) {}
            fs.Read(bytes, 0, bytes.Length)
            fs.Close()
            Response.ContentType = "application/octet-stream"
            Response.AddHeader("Content-Disposition", "attachment; filename=" & System.Web.HttpUtility.UrlEncode("temp.xls", System.Text.Encoding.GetEncoding("utf-8")))
'temp.xls 为文件的名称
            Response.BinaryWrite(bytes)
            Response.Flush()
            Response.End()
        End If

    End Sub