<meta http-equiv="X-UA-Compatible" content="IE=edge" />
<meta name="viewport" content="width=device-width, initial-scale=1, user-scalable=no" />
<link rel="Stylesheet" href="../../rrhh/Planilla/complementos/bootstrap.min.css" />

<link rel="Stylesheet" href="../../rrhh/Planilla/complementos/bootstrap.min.css" />
<script src="dropzone.js"></script>
<link rel="stylesheet" href="dropzone.css">

Imports System.Data.SqlClient
Imports System.Data
Imports System.IO
Imports System.IO.Stream
Imports System.Net
Imports System.Web.Script.Serialization
Imports System.Web.Caching

Partial Class Monitoreo_FrmUploadNovedadesMonitoreo
    Inherits System.Web.UI.Page
    Private Sd As New clsSanDiego
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Try
    getImagen()
    Catch ex As Exception
        Sd.F_Error(ex.Message, LblErrorMensaje)
    End Try
End Sub
Private Sub getImagen()
  Try
     For Each s In Request.Files
        Dim file As HttpPostedFile = Request.Files(s)
        Dim filename As String = file.FileName
        Dim fileextension As String = ""

        If Not String.IsNullOrEmpty(filename) Then
           fileextension = Path.GetExtension(filename)
           Dim savedFileName = Path.Combine("C:Temp", Guid.NewGuid().ToString() + fileextension)
           file.SaveAs(savedFileName)
        End If
     Next
   Catch ex As Exception
      Sd.F_Error(ex.Message, LblErrorMensaje)
   End Try
End Sub
End Class