Imports System.IO
Partial Class CargarImagen
    Inherits ClsPaginas

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Session("FileUpload") = ""
            CType(Me.Master, BaseMasterPage).EsPopup = True
            CType(Me.Master, BaseMasterPage).PopupWidth = 350
            RegistraScript("$get('tdContenido').style.height='100px'")
        End If
    End Sub

    Protected Sub AFU_UploadedComplete(ByVal sender As Object, ByVal e As AjaxControlToolkit.AsyncFileUploadEventArgs) Handles AFU.UploadedComplete
        If AFU.HasFile Then
            If Not Directory.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp") Then
                Directory.CreateDirectory(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp")
            End If
            Dim UploadFolder As String = Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\"
            Dim Extension As String = System.IO.Path.GetExtension(AFU.PostedFile.FileName)

            If System.IO.File.Exists(UploadFolder & UsuarioActual.CveUsuario.ToString & Extension) Then
                System.IO.File.Delete(UploadFolder & UsuarioActual.CveUsuario.ToString & Extension)
            End If

            AFU.SaveAs(UploadFolder & UsuarioActual.CveUsuario.ToString & Extension)
            Session("FileUpload") = UsuarioActual.CveUsuario.ToString & Extension
        End If
    End Sub

End Class