Ruta dinamica de carpeta "Empresas" asignar valor desde el web config

Compras/Compras.aspx.vb

@@ -613,7 +613,7 @@ Partial Class Compras_Compras
 
     'Private ReadOnly Property Ruta As String
     '    Get
-    '        Return AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\"
+    '        Return ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\"
     '    End Get
     'End Property
 
@@ -1704,7 +1704,7 @@ Partial Class Compras_Compras
             Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador
 
             Dim XMLDoc As New XmlDocument
-            Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, dr("RFCDe"), dr("XML"))
+            Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, dr("RFCDe"), dr("XML"))
             If IO.File.Exists(Archivo) Then
 
                 Dim Validada As Boolean = True