Dim oTxtFile As FileInfo = New FileInfo(sFilname)
Dim oStreamWriter As StreamWriter = oTxtFile.CreateText()
oStreamWriter.Write(oStrBuilder)
oStreamWriter.WriteLine()
oStreamWriter.Close()用如上的代码产生txt文件,我产生多个txt,在asp.net页面我要同时下载这多个文件,该怎么做?
多谢!各位大虾,希望不吝赐教!

解决方案 »

  1.   

    我的下载方法:
    Public Sub DownloadFile(ByVal filename As String)        Dim saveFileName As String = "test.xls"
            Dim intStart As Int32 = filename.LastIndexOf("\") + 1
            saveFileName = filename.Substring(intStart, filename.Length - intStart)
            Dim fi As System.IO.FileInfo = New System.IO.FileInfo(filename)
            Dim fileextname As String = fi.Extension
            Dim DEFAULT_CONTENT_TYPE As String = "application/unknown"
            Dim regkey, fileextkey As Microsoft.Win32.RegistryKey
            Dim filecontenttype As String
           
            Try
                regkey = Registry.ClassesRoot
                fileextkey = regkey.OpenSubKey(fileextname)
                filecontenttype = fileextkey.GetValue("Content Type", DEFAULT_CONTENT_TYPE).ToString()
            Catch
                filecontenttype = DEFAULT_CONTENT_TYPE
            End Try        System.Web.HttpContext.Current.Response.Clear()
            System.Web.HttpContext.Current.Response.Charset = "utf-8"
            System.Web.HttpContext.Current.Response.Buffer = True
            System.Web.HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.UTF8
            System.Web.HttpContext.Current.Response.AppendHeader("Content-Disposition", "attachment;filename=" + saveFileName)
            System.Web.HttpContext.Current.Response.ContentType = filecontenttype
            System.Web.HttpContext.Current.Response.WriteFile(filename)
            System.Web.HttpContext.Current.Response.Flush()
            System.Web.HttpContext.Current.Response.Close()
            System.Web.HttpContext.Current.Response.End()
        End Sub我怎么判断Response.End()?
    Response已经结束了