Visual Basic - Extraer archivo mas viejo de una carpeta

Life is soft - evento anual de software empresarial
   
Vista:

Extraer archivo mas viejo de una carpeta

Publicado por doplear (9 intervenciones) el 01/03/2010 15:00:54
Buenos dias a todos,

Sabrian decirme como puedo hacer para extraer el archivo mas viejo de una carpeta pasada como parametro?

muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Números primos
- Numeros a letras
- Spam Lan
Imágen de perfil de A.H.H

RE:Extraer archivo mas viejo de una carpeta

Publicado por A.H.H (116 intervenciones) el 01/03/2010 22:18:33
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Extraer archivo mas viejo de una carpeta

Publicado por doplear (9 intervenciones) el 02/03/2010 12:46:13
Muchas gracias por la ayuda

Un abrazo!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar