1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Protected Sub magrille_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles magrille.SelectedIndexChanged
Dim filepath = "\\SRV104FS01\Public\tout_le_monde\Polyvalence\pdf"
'chemin absolue du fichier à ouvrir
Dim filename = "test.pdf"
Context.Response.ContentType = "application/pdf"
'type de fichier
Context.Response.AppendHeader("content-disposition", "inline;filename=" + filename)
Context.Response.WriteFile(filepath)
Context.Response.Flush()
Context.Response.End()
End Sub |