Seleccionar carpeta

[roman]

Otra opción:

Código Delphi [-]
uses FileCtrl;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  Carpeta: String;

begin
  if SelectDirectory('Seleccione la carpeta destino', '', Carpeta) then
    Edit1.Text := Carpeta;
end;

SelectDirectory muestra el cuadro de diálogo estándar para seleccionar un directorio.

// Saludos

[lKinGl]

Excelente las dos funciones estan muy bien !!

lo quise hacer fue por que estoy haciendo un modulo de respaldo de datos pero no sabia como hacer para que los usuarios decidieran donde guardar el respaldo excelente aporte salu2 amigos foristas!!

[Cañones]

Gracias roman por el dato. Muy bueno.

Saludos.