diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index afa1c8e06..ea1bb19a1 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -832,6 +832,15 @@ Public Class ClsPaginas
                             If Not System.IO.Directory.Exists(String.Format("{0}\XML\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\XML\", Ruta))
                             If Not System.IO.Directory.Exists(String.Format("{0}\PDF\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\PDF\", Ruta))
                             If Not System.IO.Directory.Exists(String.Format("{0}\Temp\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\Temp\", Ruta))
+
+                            'limpieza de archivo en carpeta temp. mayores a 6 meses
+                            Dim NombreArchivo As String = String.Format("{0}{1}\Temp\", Extensiones.ModExtensiones.DirectorioEmpresas, dr("CveEmpresa"))
+                            Dim files As String() = IO.Directory.GetFiles(NombreArchivo)
+
+                            For Each file As String In files
+                                Dim fi As IO.FileInfo = New IO.FileInfo(file)
+                                If fi.LastAccessTime < DateTime.Now.AddMonths(-6) Then fi.Delete()
+                            Next
                         Next
                     End If
                 End Using