'Handler class Downloader
Sub Class_Globals
End Sub
Public Sub Initialize
End Sub
Sub Handle(req As ServletRequest, resp As ServletResponse)
Dim Filename As String = req.GetParameter("file")
If File.Exists("D:\LuzMSA\audios",Filename) Then
Dim in As InputStream = File.OpenInput("D:\LuzMSA\audios",Filename)
File.Copy2(in,resp.OutputStream)
Log("Descargar: " & Filename)
Else
Dim in As InputStream = File.OpenInput(File.DirAssets,"NO.png")
File.Copy2(in,resp.OutputStream)
Log("No existe este archivo: " & Filename)'Firma123456789123456789.png
End If
End Sub