vb 操作文件下载

    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,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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!