RE:Extraer archivo mas viejo de una carpeta
Hola
a ver si te sirve el siguiente ejemplo
que saca los dias de antiguedad que tienen los archivos de una carpeta hasta la fecha actual en um msgbox
Private Sub Form_Load()
'para recorrer los archivos de una carpeta'
'y ver sus dias de antiguedad'
'en un msgbox'
Dim nom_arch, ruta As String
Dim diasantiguedad As Integer
'en ruta metemos la ruta a la carpeta'
ruta = "C:\CARPETA"
'nom:arch va recorriendo todos los archivos de la carpeta'
nom_arch = Dir(ruta & "\*.*", vbfile)
Do While nom_arch <> ""
'llamamos a la funcion que nos da los dias de antiguedad'
diasantiguedad = GetDiffDays(ruta & "\" & (nom_arch))
'sacamos el mensaje con el nombre archivo y la antiguedad'
MsgBox (nom_arch) & " " & diasantiguedad & " DIAS DE ANTIGUEDAD"
'si no hay mas archivos en la carpeta salimos'
If nom_arch = "" Then Exit Do
nom_arch = Dir
Loop
End Sub
Function GetDiffDays(sFile As String)
'funcion que nos da los dias de antiguedad de un archivo'
Dim fDate As Date
Dim tmpNum As Long
fDate = FileDateTime(sFile)
tmpNum = DateDiff("d", fDate, Date)
GetDiffDays = tmpNum
End Function