Hola jarr-o, puedes utilizar la función SelectDirectory que te muestra un cuadro de dialogo para poder seleccionar el directorio. Para que te funcione debes añadir en uses la unidad
FileCtrl.
Código Delphi
[-]
procedure TT_MovTraspasoSalida.Generardocumento;
var
fecha, hora, nombrearchtxt: string;
Carpeta : String;
begin
fecha := StringReplace (DateToStr (Now), '/', '_', [rfReplaceAll]);
hora := StringReplace (TimeToStr (Now), ':', '', [rfReplaceAll]);
hora := StringReplace (hora, '.', '', [rfReplaceAll]);
Memo1.Clear;
if SelectDirectory('Seleccione la ruta de la carpeta', '', Carpeta) then
nombrearchtxt := Carpeta +'\'+ 'TS' + fecha + StrSinEspa (hora) + '.txt';
IBOQueryConDoc.Open;
IBOQueryConDoc.First;
while not (IBOQueryConDoc.EOF) do
begin
Memo1.Lines.Add (IBOQueryConDocACO_CODIGO.AsString + ',' +
IBOQueryConDocSAD_CANTIDAD.AsString);
IBOQueryConDoc.Next;
end;
Memo1.Lines.SaveToFile (nombrearchtxt);
ShowMessage ('Se a generado un documento para este traspaso en: ' + nombrearchtxt);
end;
Saluditos