Test Foro de elhacker.net SMF 2.1

Programación => Programación General => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: _CrisiS_ en 10 Diciembre 2010, 03:46 AM

Título: Como eliminar archivos por fecha?
Publicado por: _CrisiS_ en 10 Diciembre 2010, 03:46 AM
Hola amigos una duda, que code podria emplear para que borre archivos  creados 15 dias atras (de la fecha actual)
Ejml.
diariamente creo videos, con diferente nombres, y que con una funcione se borren los videos con 15 dias de antiguedad
Título: Re: Como eliminar archivos por fecha?
Publicado por: .:Weeds:. en 10 Diciembre 2010, 05:00 AM
Te daré una pista, con esto deberías de poder sacarlo.
Código (vbnet) [Seleccionar]
LastWriteTime
DateTime.Now


Saludos
Título: Re: Como eliminar archivos por fecha?
Publicado por: _CrisiS_ en 13 Diciembre 2010, 03:23 AM
emmm me podrias dar una ayudita mas ? jeje es q ando algo perdido X)

Título: Re: Como eliminar archivos por fecha?
Publicado por: Shell Root en 13 Diciembre 2010, 16:58 PM
Aquí (http://www.canalvisualbasic.net/foro/gestion-de-archivos/obtener-las-fechas-de-un-archivo-830/) averiguas la fecha de creación del archivo, realizas una bucle con todos los archivos, y los que cumplen la condición de que fueron creados aproximadamente hace 15 días con DateTime.Now los eliminas inmediatamente.
Título: Re: Como eliminar archivos por fecha?
Publicado por: _CrisiS_ en 15 Diciembre 2010, 06:03 AM
Disculpa , pero como haria un bucle de la carpeta de los archivos? XP
Título: Re: Como eliminar archivos por fecha?
Publicado por: raul338 en 15 Diciembre 2010, 16:49 PM
Código (csharp) [Seleccionar]

using System.IO;
//..........
DirectoryInfo directory = new DirectoryInfo("C:");
foreach (FileInfo file in directory.GetFiles("*.*")) {
// aca compruebas :)
}


Algo asi es, lo hice al vuelo :xD
Título: Re: Como eliminar archivos por fecha?
Publicado por: .mokk. en 15 Diciembre 2010, 22:33 PM
Bueno el codigo seria asi
Código (vb.net) [Seleccionar]

Imports System.IO
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Directorio As String = Application.StartupPath
        Dim Fecha As DateTime = DateTime.Now

        For Each archivo As String In My.Computer.FileSystem.GetFiles(Directorio, FileIO.SearchOption.SearchTopLevelOnly)

            Dim Fecha_Archivo As DateTime = My.Computer.FileSystem.GetFileInfo(archivo).LastWriteTime
            Dim diferencia = (CType(Fecha, DateTime) - CType(Fecha_Archivo, DateTime)).TotalDays

            If diferencia >= 15 Then
                File.Delete(archivo)
            End If

        Next

    End Sub

End Class

Título: Re: Como eliminar archivos por fecha?
Publicado por: _CrisiS_ en 17 Diciembre 2010, 23:26 PM
Woww muxas Graciasss