buscar

¡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

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

¡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
>
>
>

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
> >
> >
> >

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