It looks like you're new here. If you want to get involved, click one of these buttons!
<%@ WebHandler Language=\"VB\" Class=\"Check\" %>
Imports System
Imports System.Web
Imports System.IO
Imports System.Runtime.Serialization.Json
Imports System.Collections.Specialized
Imports System.Collections.Generic
Public Class Check : Implements IHttpHandler
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
'context.Response.ContentType = \"text/plain\"
'context.Response.Write(\"Hello World\")
Dim fileArray As New Dictionary(Of String, String)
For x As Integer = 0 To context.Request.Form.Count - 1
If context.Request.Form.Keys(x) <> \"folder\" Then
If File.Exists(context.Server.MapPath(context.Request.Form(\"folder\") & \"/\" & context.Request.Form.Item(x))) Then
fileArray.Add(context.Request.Form.Keys(x), context.Request.Form.Item(x))
End If
End If
Next
Dim jSer As DataContractJsonSerializer = New DataContractJsonSerializer(fileArray.GetType())
Dim ms As MemoryStream = New MemoryStream()
jSer.WriteObject(ms, fileArray)
Dim json As String = Encoding.Default.GetString(ms.ToArray())
context.Response.Write(json)
End Sub
Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
Get
Return False
End Get
End Property
End Class