AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- limpieza de temp, menores a 6 meses

Browse Source
This commit is contained in:
rrene
2023-10-31 13:20:25 -07:00
parent 76aeb89fe2
commit fafaf29eb9
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
App_Code/ClsPaginas.vb
View File

@@ -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}\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}\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)) 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 Next
End If End If
End Using End Using