Error en directorio en contratos

Contratos/Contrato.aspx.vb

@@ -3417,7 +3417,7 @@ Partial Class Contratos_Default
     Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
         If TxtExcel.getfiles().Archivos.Count > 0 Then
             Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
-            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
+            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
             Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
             CargarArchivo(Directorio, file.filename, Tipo)
         Else
@@ -3741,7 +3741,7 @@ Partial Class Contratos_Default
 #Region " IMPRIMIR DOCUMENTO - SABE  "
     Public Sub DescarFormato(documento As String)
 
-        Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
+        Dim PathRoot As String = Server.MapPath("/")
         Dim PathSource As String
         Dim pathDesti As String