Buscar último archivo modificado dentro de carpeta, teniendo ruta y formato

[Pineiden]

Estimadísimos.

Tengo otra consulta, necesito realizar una funcion dentro de macro excel que me entregue el nombre del último archivo modificado de un formato específico. Esto teniendo la ruta en la que quiero buscar y el formato.

He conseguido el siguiente código, que en teoría debería ser parte del programa:

Function encontrar_ultimo(sitio As String) As String


Set fsearch = CreateObject("Scripting.FileSystemObject")

ruta = ActiveWorkbook.Path & "\" & sitio & "\"

'file() se accede a todas las propiedades de un archivo

Set Carpeta = fsearch.getfolder(ruta)

Set ficheros = Carpeta.Files


'hacer algo para cada archivo den directorio, utilizando arreglo llamado 'ficheros'


For Each archivo In ficheros


'obtener formato .dbf

'obtener nombre y fecha-hora (ultimo modificado), esto bajo la premisa

'que el ultimo modificado corresponde al shape a enviar


Next archivo



'entregar archivo con ultima fecha

encontrar_ultimo = fesarch.LookIn = Path



'Limpiamos los objetos y variables definidas

Set fso = Nothing

Set Carpeta = Nothing

Set ficheros = Nothing


End Function[/CODE]

Como ven, falta lo importante y por eso paso a pedir alguna ayuda por aca

Slds!

[Pineiden]

Alguna idea?

[Antoni]

Hola:

Esta macro te muestra el último archivo pdf modificado.

Sub ÚltimoPDF()

Dim MiPc, Carpeta, Archivos, Archivo, ÚltimoModificado As Date

Application.ScreenUpdating = False

ActiveSheet.Cells.Clear

Set MiPc = CreateObject("Scripting.FileSystemObject")

Set Carpeta = MiPc.GetFolder([COLOR=#ff0000][B]ThisWorkbook.Path[/B][/COLOR])

Set Archivos = Carpeta.Files

For Each Archivo In Archivos

   If Not Archivo.Name = ThisWorkbook.Name Then

      If InStrRev(Archivo.Name, ".") > 0 Then

         If Mid(Archivo.Name, InStrRev(Archivo.Name, ".")) = "[COLOR=#ff0000].[B]pdf[/B][/COLOR]" Then

            If Archivo.[COLOR=#0000ff][B]DateLastModified[/B][/COLOR] > ÚltimoModificado Then

               Fichero = Archivo.Name

               ÚltimoModificado = Archivo.DateLastModified

            End If

         End If

      End If

   End If

Next

MsgBox Fichero & " " & ÚltimoModificado

End Sub

[/CODE]

[Pineiden]

Gracias, lo probaré y modificaré adecuadamente, en cuanto em resulte pongo el código por acá.

- - - - - Mensaje combinado - - - - -

Hola, ya hice las modificaciones para dejarlo como funcion y entregar el nombre, funciona bien, lo que es importante a modificar es el comando 'activesheet.clear' comentarlo o borrar ya que mi intención es que no se borren los datos con que trabajo. Además me está entregando el nombre del archivo con la extensión, deberé recortarlo hasta antes del '.'

Function encontrar_ultimo(sitio As String) As String

ruta = ActiveWorkbook.Path & "\" & sitio & "\"

Dim MiPc, Carpeta, Archivos, Archivo, ÚltimoModificado As Date

Application.ScreenUpdating = False

'ActiveSheet.Cells.Clear

Set MiPc = CreateObject("Scripting.FileSystemObject")

Set Carpeta = MiPc.GetFolder(ruta)

Set Archivos = Carpeta.Files

For Each Archivo In Archivos

   If Not Archivo.Name = ThisWorkbook.Name Then

      If InStrRev(Archivo.Name, ".") > 0 Then

         If Mid(Archivo.Name, InStrRev(Archivo.Name, ".")) = ".dbf" Then

            If Archivo.DateLastModified > ÚltimoModificado Then

               Fichero = Archivo.Name

               ÚltimoModificado = Archivo.DateLastModified

            End If

         End If

      End If

   End If

Next

MsgBox Fichero & " " & ÚltimoModificado

encontrar_ultimo = Fichero

End Function[/CODE]

Añadir o modificar las ultimas líneas del código:

[CODE]
largo = Len(Fichero)
encontrar_ultimo = Left(Fichero, largo - 4)
)[/CODE]

[27medios]

Excelente!

Le dí muchas vueltas para llegar a esto.

Código simple y limpio, siempre es mejor.