Abrir Carpeta
 

Saludos.
Necesito abrir una carpeta pulsando un botón.
Ejemplo:
Cuando haga clic en un botón se vea el contenido de la carpeta escritos en C:\datos\Escritos.
¿Sería posible que lo hiciera Windows con una llamada a la Api por ejemplo?
Gracias.

Hola RoyTan, con el componente OpenDialog lo puedes hacer, un ejemplo:

Código Delphi [-]
OpenDialog1.InitialDir := 'C:\Ruta';
OpenDialog1.Execute;

desde un Edit:

Código Delphi [-]
OpenDialog1.InitialDir := Edit1.Text;
OpenDialog1.Execute;

Saludos.

En el evento OnClick del boton pone este codigo:

Código Delphi [-]
ShellExecute(application.Handle, 'explore', 'c:\datos\Escritos', '', '', SW_SHOW);

eso abre el eplorador en esa carpeta... acordate de poner ShellApi en el uses del form

Saludos

Yo creo que mejor así (que alguien lo sepa a ciencia cierta me corrija):

Código Delphi [-]
var
  Carpeta: string;
begin
  Carpeta:='C:\datos\Escritos';
  ShellExecute(Application.Handle, PChar(Carpeta), '', nil, nil, SW_SHOW);
end;

Así, si tienes otro explorador por defecto que no sea el explorer, se abriría ese (o eso tengo entendido).

Y lo del Handle, puedes poner sólo Handle (sería el del Form), o poner 0, se va a ejecutar de todas formas :D

Claro que, la pregunta de RoyTan es un poco ambigua. Este método lo que hace es abrir el explorador en esa carpeta. Pero si lo que quiere es visualizarla para obtener datos para su aplicación... OpenDialog, FileList...

Salu2.

Las tres explicaciones, tanto la de Enecumene, como la de Elcolo83 y la de IxMike funcionan a la perfección.

Mil gracias a todos.

Un abrazo.:D

Bueno, que funcionan lo sabemos, pero... ¿cuál de las dos es la que necesitabas? :D:D:D

Vale Hombre, cuales dos si son tres?:confused::confused::D

La de elcolo83 y la mía son la misma, sólo que expresada de forma algo distinta. La otra es la tuya.

¡Que sé lo que me digo! :D:D:D


Salu2 ;).

Como dice ixMike , la de el y la mia son iguales.... solo que la de es esta mejor expresada, lo que lo hace un poco mas generica...


Saludos

Vale Hombre no habia entendido, porque no habias especificado cuales, solo cuantificaste dos, :D:D

Saludos.

Al final me han valido todas, porque las he utilizado en sitios distintos y todo perfecto.

Gracias de nuevo.