Oggetto FileUpload asp net

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

 System.Threading.Thread.Sleep(1000)
        If FileUpload1.HasFile Then
            Dim myFile As HttpPostedFile
            myFile = FileUpload1.PostedFile
            Try
                Using sr As New StreamReader(myFile.InputStream)
                    Dim line As String
                    Do
                        line = sr.ReadLine()
                        If Not (line Is Nothing) Then
                            Response.Write(line)
                        End If
                    Loop Until line Is Nothing
                End Using
            Catch ex As Exception
                Console.WriteLine(ex.Message)
            End Try
            Response.Write("File caricato!")
         End If

Dim strFileName As String = System.IO.Path.GetRandomFileName()
Dim strFriendlyName As String = "Friendly.txt"

Using sw As New System.IO.StreamWriter(Server.MapPath(_
      "TextFiles/" + strFileName + ".txt"))
    sw.WriteLine(txtText.Text)
    sw.Close()
End Using

Dim fs As System.IO.FileStream = Nothing


fs = System.IO.File.Open(Server.MapPath("TextFiles/" + strFileName + _
     ".txt"), System.IO.FileMode.Open)
Dim btFile(fs.Length) As Byte
fs.Read(btFile, 0, fs.Length)
fs.Close()
With Response
    .AddHeader("Content-disposition", "attachment;filename=" & strFriendlyName)
    .ContentType = "application/octet-stream"
   .BinaryWrite(btFile)
    .End()
end with

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra