none
Elimina Archivos que tenga fecha RRS feed

  • Pregunta

  •  My.Computer.FileSystem.CopyFile(Button1.Text, CARPETA & DateTime.Now.ToString("yyyyMMddHHmmss") & ".ico")
            Dim hide_file_info1 As IO.FileInfo = My.Computer.FileSystem.GetFileInfo(DateTime.Now.ToString("yyyyMMddHHmmss") & ".ico")
            hide_file_info1.IsReadOnly = True
            hide_file_info1.Attributes = hide_file_info1.Attributes Or IO.FileAttributes.Hidden
    

    Con este codigo copio un archivo y lo pego con otro nombre

    mi pregunta es si puedo elimina los archivos anterioles por que se guardar por fecha y no quiero muchos archivos

    gracias

    viernes, 20 de marzo de 2015 5:14

Respuestas

  • Puedes borrar archivos según su fecha. Por ejemplo si quieres eliminar archivos de hace 7 días o más:

    Dim Directorio As String = Application.StartupPath
    Dim Fecha As DateTime = DateTime.Now
     
    For Each archivo As String In My.Computer.FileSystem.GetFiles(CARPETA, 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 >= 7 Then
          File.Delete(archivo)
       End If
     
    Next


    Saludos, Javier J

    • Marcado como respuesta Didier Gonzalez viernes, 20 de marzo de 2015 18:12
    viernes, 20 de marzo de 2015 7:44