Imports System.IO
Imports Extensiones
Partial Class CargarArchivo
    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

            If Request("Tipo") IsNot Nothing AndAlso Request("Tipo").Length > 0 Then
                HdnTipo.Value = Request("Tipo")
            End If
        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(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp") Then
                Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp")
            End If
            Dim UploadFolder As String = ModExtensiones.DirectorioBaseEmpresas + "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