Ruta personalizada por Empresa

Site.master.vb

@@ -500,7 +500,7 @@ Partial Class Site
 
     Private Function ConvertCER() As String
         Try
-            Dim Archivo As String = String.Format("{0}Empresas\{1}\Certificados\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.ArchivoCer)
+            Dim Archivo As String = String.Format("{0}Certificados\{1}", UsuarioActual.Empresa.Ruta, UsuarioActual.Empresa.ArchivoCer)
             If File.Exists(Archivo) Then
                 Dim CerFile As New FileStream(Archivo, FileMode.Open, FileAccess.Read)
                 Dim Size As Integer = CerFile.Length.ToString().ToEntero()