Archivos BV

hola, Diego !

Alguien me puede decir acerca de una funcion de VB 6 para buscar archivos en el sistema
(que me de la ruta completa de ubicacion)

hay varias *formas/rutinas/API's/funciones/...* para buscar la ruta completa de *determinado* grupo de archivos
las hay desde sencillas hasta... [menos sencillas obviamente]... -> incluso hay formas [en excel] SIN usar VB ;)

FileSystemObject, Scripting, Dir(), bucles, [entre otras]
cual sera la mejor ?... [probablemente] dependera del objetivo de la busqueda -?-
- algun archivo en particular ?
- en toda una [o varias] unidad/es logica/s ?
- en una red ?
- solo en alguna carpeta ?
- volcar los archivos en alguna hoja/rango/control/... ?
- ???

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Héctor gracias por tu respuesta, es algo así como funciona el buscador de
windows donde escribes el nombre del archivo o parte de el o *.xxx y te trae
todos los archivos aplicables a esta extensión obviamente hay que especificar
el directorio o la unidad donde vas a buscar, la búsqueda debe incluír
subcarpetas

gracias, hasta pronto
DEL


"Héctor Miguel" escribió:

hola, Diego !

> Alguien me puede decir acerca de una funcion de VB 6 para buscar archivos en el sistema
> (que me de la ruta completa de ubicacion)

hay varias *formas/rutinas/API's/funciones/...* para buscar la ruta completa de *determinado* grupo de archivos
las hay desde sencillas hasta... [menos sencillas obviamente]... -> incluso hay formas [en excel] SIN usar VB ;)

FileSystemObject, Scripting, Dir(), bucles, [entre otras]
cual sera la mejor ?... [probablemente] dependera del objetivo de la busqueda -?-
- algun archivo en particular ?
- en toda una [o varias] unidad/es logica/s ?
- en una red ?
- solo en alguna carpeta ?
- volcar los archivos en alguna hoja/rango/control/... ?
- ???

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

el windows resource kit tiene una aplicacion where que te indica la
ruta donde se encuentra el archivo en cuestion ... similar al unix xD

Saludos

Otra Opcion es que si tu usas el servicio de indexado de windows
puedes utilizar un recurso WMI para hacer esta busquedad y reportarla
a un archivo ... solo que dependiendo de la cantidad de archivos en el
disco se tardara exponencialmente xD
Saludos

Dentro del notepad copia y pega estas lineas ... lo guardas como un
archivo .VBS

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}\\" & strComputer & "oot
\cimv2")

Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where FileName Like
'%.vbs'") '%.vbs' <- Ojo el query lo debes de
ir adaptando a tu necesidad

For Each objFile in colFiles
Wscript.Echo objFile.Name
Next

Francisco, muchas gracias voy a probar con este código

hasta pronto
DEL


"Francisco Mty" escribió:

Otra Opcion es que si tu usas el servicio de indexado de windows
puedes utilizar un recurso WMI para hacer esta busquedad y reportarla
a un archivo ... solo que dependiendo de la cantidad de archivos en el
disco se tardara exponencialmente xD
Saludos

Dentro del notepad copia y pega estas lineas ... lo guardas como un
archivo .VBS

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}\\" & strComputer & "oot
\cimv2")

Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where FileName Like
'%.vbs'") '%.vbs' <- Ojo el query lo debes de
ir adaptando a tu necesidad

For Each objFile in colFiles
Wscript.Echo objFile.Name
Next