Añadir Ruta a un archivo de texto..

[[egostar]]

Hola

Antes que otra cosa, ¿en que evento quieres hacerlo?

Por otra parte, pues es obvio que se va a crear en el mismo directorio porque esta usando

Código Delphi [-]
ExtractFilePath( Application.ExeName ) + 'Id.dos'

Lo mas fácil es que uses una lectura a un archivo INI o al registro con la ruta donde quieres grabarlo de esa forma no tendras complicaciones posteriores.

Salud OS

[BuRtOn]

Saludos Egostar, todo eso esta en el evento Onclick de un boton, en pocas palabras que cuando le de click al boton , ese archivo me lo genere en la carpeta donde yo quiero, o me de la opcion de elegirla, lo estaba intentando con el SelectDirectory, pero como te digo, soy novato en esta cuestion de archivos y me pierdo....y pues cree el archivo .dos, para que nadie se ponga a molestar ese archivo, por lo general siempre que lo dejas .txt, la gente es a mirar que hay, o a tratar de modificar...ok muchas gracias Egostar....

[[Delphius]]

Hola BuRtOn, no se si estoy entiendo bien el asunto... ¿La idea que tienes es que se pueda elegir donde se guardará dicho archivo?

Si es eso... y sabiendo que es lo que estás guardando... yo diría que con menos razón no dejo que el archivo quede en cualquier lado. Lo correcto sería imposibilitar donde estará ¡Se trata de algo de seguridad, algo valioso!¡Necesariamente debe estar lo suficientemente oculto!

Lo que te recomiendo es que trabajes o con la clase TIniFile o TRegistry para trabajar de forma más fácil con archivos INI y el registro respectivamente. La manera en que tu guardas el archivo es de más "bajo nivel" y el uso de estas clases te pueden ser mucho más fácil.

Aun asi, si deseas seguir con la idea del SelectDirectory la forma de emplearlo es esta:

Código Delphi [-]
selectDirectory('El titulo','Un path inicial',dir);

Si te fijas bien, el último parámetro (dir) es de tipo por valor. Por tanto en él queda guardado el directorio elegido. No te olvides de añadir en uses la unidad FileCtrl.

Saludos,

[BuRtOn]

Saludos delphius, gracias por tu respuesta, si amigo trabaje la creacion de ese archivo de esa forma primitiva, por que solo pude leer esta mañana la forma de como crear archivos, y ese fue el mas sencillo, por que no me queda nada de tiempo.....Te agardecerias si tienes algun manual para manejar y crear los TiniFile o Tregisty que me dices, no se que tanto cambie el codigo a lo que yo tengo, si utilizo esa clase de archivos, no los utilice por que aun no encuentro un buen manual, y como te digo el tiempo esta en contra mia....aun asi no sabes como puedo darle la ruta a este archivo:

Código Delphi [-]
procedure TfrmSeriales.btnIdClick(Sender: TObject);var Id: TextFile;begin //Llamando la funcion en el text del editedtId.Text:=GetVolumeID('C'); //Crear ArchivoAssignFile( Id, ExtractFilePath( Application.ExeName ) + 'Id.dos' );Rewrite(Id);Writeln(Id,edtId.Text);closeFile(Id);end;

Agardezco tu ayuda delphius.gracias...

[[Delphius]]

El único manual que tengo es el F1 y la buena cantidad de hilos que tratan el tema.
Si buscaras encontrarás. No lo tomes a mal, pero hay que perderle el miedo al F1.

Por cierto, sería bueno que edites el mensaje. No se si es mi navegador pero el último post tuyo es demasiado... horizontal y molesta la barra de desplazamiento. Muchas gracias.

Saludos,

[BuRtOn]

Oh lo olvidaba Delphius mira encontre este codigo del Selecdirectory:

Código Delphi [-]
if SelectDirectory('Seleccione la ruta de la carpeta', '', Carpeta) then
   nombrearchtxt := Carpeta +'\'+ 'TS' + fecha + StrSinEspa (hora) + '.txt';

pero que colcan el path que tu me dices en ,'', que mi indica eso ??? y pues despues que tenga la ruta seleccionada y almacenada en una variable en que parte de mi codigo, la aplico, para que me tome esa ruta ???, eso es lo que se me olvidaba preguntar....la persona que hizo este codigo declaro una variable tipo String llamada carpeta, creo que ahi es donde se alamcena la ruta y nombrearchtxt tambien es una variable de tipo string, pero nop se como combinar estos datos a mi codigo...y no se si es posible...gracias delphius...

[[Delphius]]

Empezado por BuRtOn

Oh lo olvidaba Delphius mira encontre este codigo del Selecdirectory:

Código Delphi [-]
if SelectDirectory('Seleccione la ruta de la carpeta', '', Carpeta) 
  then nombrearchtxt := Carpeta +'\'+ 'TS' + fecha + StrSinEspa (hora) + '.txt';

pero que colcan el path que tu me dices en ,'', que mi indica eso ??? y pues despues que tenga la ruta seleccionada y almacenada en una variable en que parte de mi codigo, la aplico, para que me tome esa ruta ???, eso es lo que se me olvidaba preguntar....la persona que hizo este codigo declaro una variable tipo String llamada carpeta, creo que ahi es donde se alamcena la ruta y nombrearchtxt tambien es una variable de tipo string, pero nop se como combinar estos datos a mi codigo...y no se si es posible...gracias delphius...

Al poner el segundo parámetro en vacio ('') lo que hace es que el directorio inicial sea "Mi PC".
Exacto, en Carpeta queda guardado el directorio seleccionado (si es que seleccionó, por ello la función devuelve un boolean: si seleccionó o cancelo). Y por lo que veo, en NombreArchTxt guarda el path completo (dirección y nombre de archivo) del archivo txt. El nombre del archivo por lo que se entiende está formado por TS más la fecha, hora y la extensión.

¿Como? Necesitas que te indique como debes adaptarlo? ¡Vamos hombre!
Analiza el código primero antes de estar copiando...

Saludos,

[BuRtOn]

Delphius si me guio por el codigo, por que estoy aprendiendo, y me toca probar las cosas que encuentro, y no se, pero mi fuerte no son archivos, pero aun asi los quiero manejar bien, mira ya soy capaz de elegir la ruta que deseo pero aun asi no me crea el archivo....se que no me falta mucho, pero ni idea que sea...por favor si tu o alguien me pueda hechar una manito se lo agradezco, no que me hagan el codigo, pero si que me puedan explicar que se puede hacer....miren lo que me qudo del codigo es lo siguiente:

Código Delphi [-]
procedure TfrmSeriales.btnIdClick(Sender: TObject);
var Id: TextFile;
var carpeta :string;
begin
//Llamando la funcion en el text del edit
edtId.Text:=GetVolumeID('C');

//Crear Archivo
if SelectDirectory('D:\Nueva carpeta','D:\Nueva carpeta', carpeta) then
begin
AssignFile( Id, ExtractFilePath( Application.ExeName )+'Id.dos ');
Rewrite(Id);
Writeln(Id,edtId.Text);
closeFile(Id);
end;
end;

otra forma que trate de direccionarlo fue esta:

Código Delphi [-]
procedure TfrmSeriales.btnIdClick(Sender: TObject);
var Id: TextFile;
begin
 
//Llamando la funcion en el text del edit
edtId.Text:=GetVolumeID('C');

//Crear Archivo
AssignFile( Id, ExtractFilePath( Application.ExeName )+'D:\Nueva carpeta\Gyros\Id.dos '); 
Rewrite(Id);
Writeln(Id,edtId.Text);
closeFile(Id);
end;

como se pueden dar cuenta trate de direccionarlo de esa forma pero tampoco pude...estoy tratando e intentado haber que me funciona...todo es de probar y mirar las cosas, les agradesco que me colaboren y a ti delphius tambien gracias, siempre me induces a leer y leer...jejeje eso es bueno.....