Localizar un archivo en todos los discos incluyendo la red

[foxteban]

Hola Grupo

Hago esta pregunta:
Puede el VFP localizar un determinado archivo en todos los discos
locales y los que esten en red ?
Me explico: Necesito localizar una tabla, por ejemplo la tabla
USUARIOS.DBF.-
Que es lo que preciso ?; que me rastree todos los discos (locales y de
red) y de como resultado en un listbox o como sea lo siguiente (es un
ejemplo)

C:\Archivos de Programas\sistemas\usuarios.dbf
c:\windows\usuarios.dbf
d:\sistemas\aplicaciones\usuarios.dbf
\\pcjuan\c\sistemas\usuarios.dbf
\\maria\d\contable\usuarios.dbf

esto significa que localizo en todos esos lugares el archivo
USUARIOS.DBF

Ya lo intente con LOCFILE(), FULLPATH(), etc pero todo ellos me
presentan el cuadro de dialogo, esto no
me interesa puesto que no se en donde puede estar ese archivo.

Un poco es como lo hace el TotalCommander, que yo pongo el archivo a
buscar y me reporta en donde los encontro con las rutas de cada caso.

Creeria que puede ser mas bien con las API de Windows o algun FLL o
DLL, etc.

Bueno grupo, agradezco la ayuda
Dejo para todos un cordial saludo
Esteban

[Guillermo Gimenez]

Que haces esteban... investigale un poquito a la funcion ADIR( )... quizas te ayude a solucionar tu problema.. aunque... recorrer todos los directorios de uno o varios volumenes o discos... es un trabajo bastante larguito.. aun para un zorro que corre rapido! saludos

 

Guille

[edgar suarez kummers]

Tal vez ...

http://www.4shared.com/file/05lXZbBB/Agent_Ransack.htm

---

De: Guillermo Gimenez <guille...@yahoo.com.ar>
Para: "publice...@googlegroups.com" <publice...@googlegroups.com>
Enviado: viernes 9 de septiembre de 2011 21:33
Asunto: Re: [vfp] Localizar un archivo en todos los discos incluyendo la red

[Marco Plaza]

Algo así.. no es bonito pero sirve... ( claro puedes usar mejor adir
con iteracion y fso para obtener solo los dd y d de red )

Marco Plaza


abuscado = 'usuarios.dbf'
donde = ''
temp = GETENV('temp')+SYS(3)+'.tmp'

For T = 100 To 122

disco = Chr(T)

If Adir(x,disco+':\*.*','D') > 0

WAIT 'Buscando en '+disco WINDOW nowait

ERASE (temp)
iDos = ' dir '+disco+':\'+abuscado+' /s > '+temp
RUN &iDos

IF FILE(temp)

r = Filetostr(temp)
donde = Strextract(r,'Directorio de ',Chr(13))

If abuscado $ r
Exit
Endif
ENDIF

Endif

ENDFOR

IF !EMPTY(donde)
messagebox('Hallado en: '+donde,0)
ENDIF




On Sep 9, 10:45 pm, edgar suarez kummers <edgarkumm...@yahoo.es>
wrote:

> Tal vez ...
>
> http://www.4shared.com/file/05lXZbBB/Agent_Ransack.htm
>
> ________________________________

> De: Guillermo Gimenez <guille_cy...@yahoo.com.ar>Para: "publice...@googlegroups.com" <publice...@googlegroups.com>

> Enviado: viernes 9 de septiembre de 2011 21:33
> Asunto: Re: [vfp] Localizar un archivo en todos los discos incluyendo la red
>
> Que haces esteban... investigale un poquito a la funcion ADIR( )... quizas te ayude a solucionar tu problema.. aunque... recorrer todos los directorios de uno o varios volumenes o discos... es un trabajo bastante larguito.. aun para un zorro que corre rapido! saludos
>  
> Guille
>

[Luis Maria Guayan]

Lo puedes hacer con Filer.dll que viene con VFP

Ejecuta este ejemplo:

DO FORM (HOME(1) + 'Tools\Filer\Filer.scx')

Busca en la ayuda de VFP "FILER.DLL" y allí tienes mas datos.

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Marco Plaza]

Uff yo le pasaba por encima a filer en la ayuda sin ver que lo habían
dejado como una dll!

Desde hace años cuando filer se incluyó como compatibilidad hacia
atrás del filer
me acostumbré a leer filer y seguir de largo.. je je. Hasta llegué a
usar consultas con Index Server..

Gracias Luis María..

Marco Plaza

On Sep 10, 8:49 am, Luis Maria Guayan <luismar...@gmail.com> wrote:
> Lo puedes hacer con Filer.dll que viene con VFP
> Ejecuta este ejemplo:
> DO FORM (HOME(1) + 'Tools\Filer\Filer.scx')
> Busca en la ayuda de VFP "FILER.DLL" y allí tienes mas datos.
>
> Luis María Guayán
> Tucumán, Argentina

> _________________________http://www.PortalFox.com

[foxteban]

Gracias a todos

Voy a probar Filer.dll.

Segun logre sacar lo que preciso, pues se los mostrare.

Un abrazo

Esteban

[foxteban]

Gracias Luis Maria
Eso es lo que estaba buscando "FILER.DLL" . Me viene de diez esa
busqueda.
Te dejo a vos y al grupo, un caluroso abrazo
Esteban