none
Fecha de archivos txt RRS feed

  • Pregunta

  • Buenas tardes, espero puedan orientarme, realmente se los agrade seria.

    Tengo que subir un archivo de txt al sistema, pero para ello tengo que poner un candado donde no me permita subir archivos de mas de 5 días hábiles, y el problema es que no puedo obtener la fecha del archivo, ya intente el método GetFileInfo  

    Public Function GetFileInfo( _
       ByVal file As String _
    ) As System.IO.fileinfo

    Dim fecha As System.oi.fileinfo
    fecha = my.computer.FileSystem.GetFileInfo(" trim(txtdir)")
    MsgBox "resultado" & Information.FullName & "."

    pero me marca error, también intente FileDateTime pero me da las horas junto a la fecha y solo requiero de la fecha. 

    Si pudieran orientarme se los agradecería.

    martes, 2 de mayo de 2017 18:30

Respuestas

  • Hola El Fercho

    • pero me marca error, también intente FileDateTime pero me da las horas junto a la fecha y solo requiero de la fecha. 

    Pero entonces utiliza esa forma y compara las fechas pasando a formato solo fecha, luego sacando las diferencias con el DateDiff

      fechaArchivo = CDate(TxtFechaArchivo.Text)
      fechaActual  = Date.Now
      dif = DateDiff("dd", fechaArchivo , fechaActual) 
    
     If dif > 5 Then
         MsgBox "No se permiten archivos con más de 5 días de antiguedad "
     End If

    Saludos


    Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.

    • Marcado como respuesta El Fercho viernes, 9 de junio de 2017 21:54
    martes, 2 de mayo de 2017 18:54

Todas las respuestas

  • Hola El Fercho

    • pero me marca error, también intente FileDateTime pero me da las horas junto a la fecha y solo requiero de la fecha. 

    Pero entonces utiliza esa forma y compara las fechas pasando a formato solo fecha, luego sacando las diferencias con el DateDiff

      fechaArchivo = CDate(TxtFechaArchivo.Text)
      fechaActual  = Date.Now
      dif = DateDiff("dd", fechaArchivo , fechaActual) 
    
     If dif > 5 Then
         MsgBox "No se permiten archivos con más de 5 días de antiguedad "
     End If

    Saludos


    Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.

    • Marcado como respuesta El Fercho viernes, 9 de junio de 2017 21:54
    martes, 2 de mayo de 2017 18:54
  • Podrías usar esto

    Dim fecha as DateTime = System.IO.File.GetLastWriteTime(rutaDelArchivo).Date

    martes, 2 de mayo de 2017 20:29