Encontrar ultimos archivos modificados en carpeta, obtener string y comprimir
publicado
Hola!
Acudo nuevamente a la sabiduria de los usuarios de este foro.
Mi consulta es la siguiente, en una carpeta tengo varios archivos con un formato o extensión .dbf .prj .shp .shx, estos tienen el mismo nombre pero cambian solo la extensión. Pero tengo casos en que existen varias versiones de estos archivos de las cuales necesito obtener el nombre de la ultima version, es decir la ultima modificada.
Por lo que tendria que tener, en primer lugar, el nombre de los ultimos archivos modificados para lo cual defino la siguiente funcion:
Function encontrar_ultimo(sitio As String) As String
ruta = ActiveWorkbook.Path & "\" & sitio
'codigo de busqueda
End Function
[/CODE]
Lo que me faltaria para encontrar el nombre del archivo por el codigo. Ahora bien como los nombre de cada extension es el mismo buscaria por solo una extensio, la .dbf
Luego, necesito comprimir estos archivos en un .rar (por ejemplo), para lo cual tengo el siguiente codigo que obtuve a partir del sitio de winrar: WinRAR España - Manual de uso, lo cual se deberia ejecutar mediante la activacion desde una macro por la linea de comando, ahora la pregunta es como se haria eso?
Tengo lo siguiente hasta el momento:
[CODE]Sub comprime_polyline()
'winrar a -afrar -ibck -m3 NOMBRE *.dbf *.prj *shp *.shx *.txt
nf = numerofilas()
For i = 2 To nf
sitio = Range("A" & i).Value
polyline_version = encontrar_ultimo(sitio)
Nombre = Range("J" & i).Value
'winrar a -afrar -ibck -m3 NOMBRE *.dbf *.prj *shp *.shx *.txt
Next i
End Sub[/CODE]
Este programa leeria una serie de filas, de las que obtendria el nombre de un sitio, ingreso a la carpeta, busco los ultimos modificados y comprimo.
Se agradece la ayuda
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola!
Acudo nuevamente a la sabiduria de los usuarios de este foro.
Mi consulta es la siguiente, en una carpeta tengo varios archivos con un formato o extensión .dbf .prj .shp .shx, estos tienen el mismo nombre pero cambian solo la extensión. Pero tengo casos en que existen varias versiones de estos archivos de las cuales necesito obtener el nombre de la ultima version, es decir la ultima modificada.
Por lo que tendria que tener, en primer lugar, el nombre de los ultimos archivos modificados para lo cual defino la siguiente funcion:
Lo que me faltaria para encontrar el nombre del archivo por el codigo. Ahora bien como los nombre de cada extension es el mismo buscaria por solo una extensio, la .dbf
Luego, necesito comprimir estos archivos en un .rar (por ejemplo), para lo cual tengo el siguiente codigo que obtuve a partir del sitio de winrar: WinRAR España - Manual de uso, lo cual se deberia ejecutar mediante la activacion desde una macro por la linea de comando, ahora la pregunta es como se haria eso?
Tengo lo siguiente hasta el momento:
'winrar a -afrar -ibck -m3 NOMBRE *.dbf *.prj *shp *.shx *.txt
nf = numerofilas()
For i = 2 To nf
sitio = Range("A" & i).Value
polyline_version = encontrar_ultimo(sitio)
Nombre = Range("J" & i).Value
'winrar a -afrar -ibck -m3 NOMBRE *.dbf *.prj *shp *.shx *.txt
Next i
End Sub[/CODE]
Este programa leeria una serie de filas, de las que obtendria el nombre de un sitio, ingreso a la carpeta, busco los ultimos modificados y comprimo.
Se agradece la ayuda