:master: dopo creato il file lanci il metodo:
codice:
Private Sub spedisci_file(ByVal f As String)
f = Me.Server.MapPath(f) 'f è un percorso di file virtuale, assoluto o relativo
Response.Expires = -1
' verifica esistenza
Dim fi As FileInfo = New FileInfo(f)
If fi.Exists Then
' imposta le headers
Response.Clear()
Response.AddHeader("Content-Disposition", "attachment; filename=""" & fi.Name & """")
Response.AddHeader("Content-Length", fi.Length.ToString())
Response.ContentType = "application/octet-stream"
' leggo dal file e scrivo nello stream di risposta
Response.WriteFile(f)
AggiornaLog("c:\tmp\log.txt", True)
Response.End()
Else
Response.Write("Impossibile scaricare il file.")
End If
End Sub