Fecha de archivos txt

Question

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.

Answer 1

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.

Answer 2

Podrías usar esto

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