Dovevo creare una pagina per il dawnload di un file. Ho trovato questo codice, però io non sono molto esperto e volero sapere i difetti e cosa posso migliorare.
Public Shared Sub WriteFile(ByVal PercorsoFile As String, ByVal AsAttachment As Boolean)
Dim Response As HttpResponse = HttpContext.Current.Response
Dim Request As HttpRequest = HttpContext.Current.Request
Dim FileRassegna As FileInfo = New FileInfo(PercorsoFile)
Response.ContentType = DirectCast(Registry.ClassesRoot.OpenSubKey(FileRas segna.Extension).GetValue("Content Type", "application\octet-stream"), String)
If (AsAttachment) Then
Response.AppendHeader("Content-Disposition", String.Format("Attachment ; filename={0}", FileRassegna.Name))
End If
Response.WriteFile(PercorsoFile)
Response.End()
End Sub