buscar

No lo siento, pero no es eso lo que estoy buscando, lo que quiero es filtrar
una vusqueda por la extension "*.LCK" no abrir ningun archivo.

"luis" wrote:

utiliza el metodo getopenfilename. Es lo que necesitas


"Juanjo" escribió en el mensaje
news:
> Hola de nuevo.
>
> Necesito buscar mediante codigo VBA todos los archivos *.LCK, el caso es
> que
> no se como crear el codigo a la hora de hacer que busque en las
> subcarpetas
> del las carpetas y a su vez en cada subcarpeta de estas.
>
> Gracias

eso te permite filtrarlo.


"Juanjo" escribió en el mensaje
news:

No lo siento, pero no es eso lo que estoy buscando, lo que quiero es
filtrar
una vusqueda por la extension "*.LCK" no abrir ningun archivo.

"luis" wrote:

utiliza el metodo getopenfilename. Es lo que necesitas


"Juanjo" escribió en el mensaje
news:
> Hola de nuevo.
>
> Necesito buscar mediante codigo VBA todos los archivos *.LCK, el caso
> es
> que
> no se como crear el codigo a la hora de hacer que busque en las
> subcarpetas
> del las carpetas y a su vez en cada subcarpeta de estas.
>
> Gracias

esto te sirve?

Sub Prueba()
With Application.Dialogs(xlDialogSearch)
.Show
End With
End Sub

"Juanjo" escribió en el mensaje
news:

No lo siento, pero no es eso lo que estoy buscando, lo que quiero es
filtrar
una vusqueda por la extension "*.LCK" no abrir ningun archivo.

"luis" wrote:

utiliza el metodo getopenfilename. Es lo que necesitas


"Juanjo" escribió en el mensaje
news:
> Hola de nuevo.
>
> Necesito buscar mediante codigo VBA todos los archivos *.LCK, el caso
> es
> que
> no se como crear el codigo a la hora de hacer que busque en las
> subcarpetas
> del las carpetas y a su vez en cada subcarpeta de estas.
>
> Gracias

Hola juanjo

prueba el siguiente codigo
fijate en los comentarios para cambiar lo que necesites

un saludo
juan

= en un modulo estandar

Dim nombre As String

Function CreateFileList(FileFilter As String, _
IncludeSubFolder As Boolean) As Variant
Dim FileList() As String, FileCount As Long

nombre = "c:uta\" 'aqui pones tu ruta importa la barra \
CreateFileList = ""
Erase FileList
If FileFilter = "" Then FileFilter = "*.*" ' all files
With Application.FileSearch
.NewSearch
.LookIn = nombre
.Filename = FileFilter
.SearchSubFolders = False 'aqui te incluye las sub carpetas
cambia a true
.FileType = msoFileTypeAllFiles
If .Execute(SortBy:=msoSortByFileName,
SortOrder:=msoSortOrderAscending) = 0 Then Exit Function
ReDim FileList(.FoundFiles.Count)
For FileCount = 1 To .FoundFiles.Count
FileList(FileCount) = .FoundFiles(FileCount)
Next FileCount
.FileType = msoFileTypeExcelWorkbooks
End With
CreateFileList = FileList
Erase FileList
End Function

Sub GeneraLista()
Dim FileNamesList As Variant, i As Integer, j As Integer

j = 0
FileNamesList = CreateFileList("*.LCK", False) 'aqui cambia la extension
Range("A:A").ClearContents
For i = 1 To UBound(FileNamesList)
Cells(i + 1, 1).Formula = Right(FileNamesList(i),
Len(FileNamesList(i)) - Len(nombre))
j = j + 1
Next i
Cells(1, 1) = j
End Sub

"Juanjo" escribió en el mensaje
news:

Hola de nuevo.

Necesito buscar mediante codigo VBA todos los archivos *.LCK, el caso es
que
no se como crear el codigo a la hora de hacer que busque en las
subcarpetas
del las carpetas y a su vez en cada subcarpeta de estas.

Gracias

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias.
Hola !
¿eso es una pregunta o una afirmación?

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Juanjo" escribió en el mensaje
news:

Muchas gracias, realmente funciona el codigo que me has dado.

Ahora lo que intento hacer es solo mostrar los que tienen la extension LCK

"Emilio" wrote:

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Eso es por que syscmd es un comando de access, que si mal no recuerdo en
Excel sería reemplazable por Application.StatusBar >> Pero ten en cuenta que eso lo que hace es mostrar en la barra de estado
los
nombres de todos los archivos, ahora, deberás modificar esa línea para
hacer
con los archivos lo que a ti te parezca oportuno.

Saludos a
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio


"Juanjo" escribió en el mensaje
news:
> No, no me funciona, y te digo esactamente porque no.
>
> Me indica Sub o funcion no valida con el procedimiento syscmd.
>
> "Emilio" wrote:
>
>
> > ¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos
> > si
te
> > sirvió o no la respuesta dada. Muchas gracias
>
> > Hola!
> > mira a ver si te vale esta joyita de Juan M.Afán de Ribera
> > http://www.mvp-access.com/juanmafan...voswsh.htm
> >
> > Saludos a
> > Emilio
> > miliuco56 ALGARROBA hotmail.com
> > http://www.mvp-access.com/foro
> > http://www.mvp-access.com/emilio
> >
> >
> > "Juanjo" escribió en el mensaje
> > news:
> > > Hola de nuevo.
> > >
> > > Necesito buscar mediante codigo VBA todos los archivos *.LCK, el
> > > caso
es
> > que
> > > no se como crear el codigo a la hora de hacer que busque en las
> > subcarpetas
> > > del las carpetas y a su vez en cada subcarpeta de estas.
> > >
> > > Gracias
> >
> >
> >