obtener la ruta de una carpeta

[zanetti26]

Te agradezco mucho la bienvenida.
Tal vez y me explique mal: el truco que pasaste es apra crear una carpeta en una ruta especifica, pero lo que yo quiero es buscar una carpeta ya existente mediante un buscador que viaje por todas las rutas del sistema entonces el usuario va a dar una parametro por ejemplo:

String:: 'mi carpeta';

y que el sistema busque ese string y cuando lo encuentre me muestre algo parecido como:

Se encontraron las siguentes rutas:

C:\Documents and Settings\Administrador\Escritorio\proyectos\mi carpeta

C:\Documents and Settings\Administrador\Mis documentos\Mi música\mi carpeta

Esto es algo parecido al bsucador de archivos de windows calro que yo solo busco carpetas.
Gracias y agradezco mucho tu antencion

[[seoane]]

Buscar una carpeta no se diferencia de buscar un archivo, y el código necesario para hacerlo lo puedes encontrar en la sección de trucos. Lo que aquí te propongo es algo diferente, al iniciar el programa se crea una lista con todos los directorios, luego al escribir en un edit se consulta la lista y se muestran las coincidencias en un memo, al mismo tiempo que se escribe.

[zanetti26]

Muchas gracias la verdad me sirvio mucho tu ejemplo, te lo agradezco MUCH. convine tu metodo con el mio y la verdad quedo bien chido GRACIAS

[zanetti26]

Que tal yo molestando otra vez un favor.
El programa quedo muy bien,funciona de maravilla...
solo que si yo escribo por decir:
"MI CARPETA"
Y hay una carpeta que se llama igual pero esta en minusculas:
"mi carpeta"
No me lo detecta por que yo lo puse en mayusculas ya las que estan en minusculas las ignora.
Ay alguna manera de que no sea tan sensitivo? una funcion o algo asi.
Porfavor y Gracias

[[seoane]]

Pues en donde pone:

Código Delphi [-]
if Pos(txtBuscar.Text,Carpetas[i]) > 0 then

Puedes poner:

Código Delphi [-]
if Pos(Uppercase(txtBuscar.Text),Uppercase(Carpetas[i])) > 0 then

Aunque como cabe esperar esto hará que la búsqueda sea mas lenta.

[santus]

Pues.. bien.. nose si te servirá pero tienes una funcion que se llama UpperCase en donde le pasas un string y te lo devuelve en mayusculas.

Seria algo asi:

 
Function ConvertirAMayusculas(CadenaMinuscula:String):String;
Begin
  Result := UpperCase(CadenaMinuscula);
end;

Quiza poniendo la propiedad "CharCase" en tu Edit en "ecUpperCase" y con la funcion en el otro texto puedas tener coincidencias. Espero haberte sido de utilidad. Saludos.

[JAVH]

Por qué no intentas SHBrowseForFolder???

http://www.cryer.co.uk/brian/delphi/howto_browseforfolder.htm

Saludos.

[zanetti26]

Muchas gracias la verdad me fue util su ayuda espero encontrarmelos pronto y gracias de Nuevo
_________
zanetti26