Añadir Ruta a un archivo de texto..

[[egostar]]

hola

Incluye en tu forma un TSaveDialog que encontrarás en el Tab Dialogs.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Id: TextFile;
begin
  edtId.Text:=GetVolumeID('C');
  savedialog1.FileName := 'Id.dos';
  if savedialog1.Execute then begin
     AssignFile(Id,savedialog1.FileName);
     Rewrite(Id);
     Writeln(Id,edtId.Text);
     CloseFile(Id);
  end;
end;

Solo indicas donde quieres que se grabe y listo, ya tienes creado el archivo Id.dos, en la ruta que quieras.

Salud OS

[[Delphius]]

Empezado por egostar

Delphius, la verdad es que no entiendo lo que dices, si algún chistoso modifica/borra el archivo, pues se tendrá que validar que exista y si no actuar en consecuencia, es decir, solicitar que se registre de nuevo o joder el sistema y no iniciarlo, así de fácil......

Salud OS

A pues... viendo lo que dice BuRtOn:

Empezado por BuRtOn

Bueno me explico bien por que quiero una ruta especifica para el archivo que estoy creando, lo que sucede es que tengo una aplicaicon pequeña que me extrae el Id del disco duro, lo alamcena en un archivo, y me muestra el Id en un Edit, y tengo una aplicacion Grande que es la principal, alli va a existir un formulario de Seguridad que me va a pedir el Id del sico, y pues copio el Id de la aplicacion pequeña y lo pego en la aplicacion Grande....y alli comparo que lo que este en la aplicaicon Grande sea igual a lo de la aplicacion pequeña, en fin ese no es el problema, solo explico lo que tengo y por que la necesidad de redireccionar el archivo....por que el programita pequeño esta creado, para guardarlo en una memoria Usb, osea una aplicacion portable, y que en el momento que ejecute la aplicacion grande y me pida el id, pues solo tengo que sacar mi programita portable ejecutarlo, que me muestre el Id del disco y que me cree un archivo de texto en la carpeta dle programa garnde, para poder hacer las comparaciones....hay mas logica en el codigo de seguridad, solo que no lo expolico por que no es el tema del hilo, pero eso es lo que necesito, y pues el codigo que deje en este hilo, fue el mnual mas especifica de archivos, y por eso estoy mal en lo de redireccionar el archivo a una carpeta que yo quiera...no importa si no me toca elegir la ruta como con el selectDirectory, contal que pueda especificarle la ruta desde tiempo de diseño, todo esta bien....les agardezo su paciencia, y espero que me entiendan lo que explique...Gracias...

Me doy cuenta de que si necesita indicar donde va el archivo. Perdón.

En ese aspecto si tienes razón egostar, ya es problema del usuario si lo toca. Nomás yo decía que por las dudas, cuanto más oculto esté del usuario mejor.

Saludos,

[BuRtOn]

Ok, delphius, yo estoy relax, la aplicacion ya la termine, y creeme que con la base de datos me fue muy bien, y logre todo lo que queria, y en cuanto a la validacion de datos, tambien quedo perfecto....esta creado para evitar cualquier erro de usuario...lo que pasa es que estoy con esta cuestion del archivito, y lo maximo que he leido es el siguiente manual:

http://delphiallimite.blogspot.com/2...exto-y_29.html

juzga por ti mismo delphius...no es que sea bruto ni nada de esas cosas, solo que es muy basico lo que he visto en Delphi, y lo poco que he aprendido a sido con esfuerzo regaños de ustedes y de leer mucho....no tengo mucha experiencia, mi programacion aun es 100% estructurada...

entiendeme un poco si por favor....Gracias por su tiempo prestado...

[[egostar]]

Empezado por BuRtOn

Ok, delphius, yo estoy relax, la aplicacion ya la termine, y creeme que con la base de datos me fue muy bien, y logre todo lo que queria, y en cuanto a la validacion de datos, tambien quedo perfecto....esta creado para evitar cualquier erro de usuario...lo que pasa es que estoy con esta cuestion del archivito, y lo maximo que he leido es el siguiente manual:

http://delphiallimite.blogspot.com/2...exto-y_29.html

juzga por ti mismo delphius...no es que sea bruto ni nada de esas cosas, solo que es muy basico lo que he visto en Delphi, y lo poco que he aprendido a sido con esfuerzo regaños de ustedes y de leer mucho....no tengo mucha experiencia, mi programacion aun es 100% estructurada...

entiendeme un poco si por favor....Gracias por su tiempo prestado...

Ah no, aquí el único regañon es [Delphius], yo no tengo vela en el entierro

Salud OS

PD, ya le diste una leída a mi último post?

[[Caral]]

Hola

Empezado por egostar

Ah no, aquí el único regañon es [Delphius], yo no tengo vela en el entierro

Salud OS

PD, ya le diste una leída a mi último post?

Asi es, se nos hace viejo nuestro amigo Delphius, Viejo, chocho y regañón
Nada como tu y yo amigo, somos los jovenzuelos del club
Saludos

[[egostar]]

Empezado por Caral

Hola

Asi es, se nos hace viejo nuestro amigo Delphius, Viejo, chocho y regañón
Nada como tu y yo amigo, somos los jovenzuelos del club
Saludos

jejejeje, ya lo has dicho amigo, hay que darle unas vacaciones a [Delphius], ya le hacen falta y de paso que le presenten a una chica para que se entretenga

Salud OS

[BuRtOn]

Jajajajajajajaa. conste que yo dije regaños, no regañon ni viejo......ni siquiera soy miembro premium...jejeje, solo tengo 20 años.....soy un niño....jejejejejej ....

[[Delphius]]

Empezado por egostar

Ah no, aquí el único regañon es [Delphius], yo no tengo vela en el entierro

Salud OS

PD, ya le diste una leída a mi último post?

Empezado por Caral

Hola

Asi es, se nos hace viejo nuestro amigo Delphius, Viejo, chocho y regañón
Nada como tu y yo amigo, somos los jovenzuelos del club
Saludos

¡Viejos los trapos!
Ya les voy a dar a ustedes... los voy a mandar al geríatrico.

No más le reto un poco que se de cuenta de que:
1. F1 es más que una categoría de carrera de autos
2. Cuando uno prepara la ejecución de un proyecto, debe añadirle SIEMPRE al menos dos semanas. Siempre surge algo a último momento.
3. Practicar más de lo que uno SIEMPRE piensa que sabe lo suficiente
4. Murphy tiene razón
5. El desarrollo del software no es cosa de un dia

Saludos,

[[egostar]]

Empezado por BuRtOn

Jajajajajajajaa. conste que yo dije regaños, no regañon ni viejo......ni siquiera soy miembro premium...jejeje, solo tengo 20 años.....soy un niño....jejejejejej ....

Y bien, ya probaste el "code" que te puse ????

Salud OS

[[egostar]]

Empezado por Delphius

¡Viejos los trapos!
Ya les voy a dar a ustedes... los voy a mandar al geríatrico.

No más le reto un poco que se de cuenta de que:
1. F1 es más que una categoría de carrera de autos
2. Cuando uno prepara la ejecución de un proyecto, debe añadirle SIEMPRE al menos dos semanas. Siempre surge algo a último momento.
3. Practicar más de lo que uno SIEMPRE piensa que sabe lo suficiente
4. Murphy tiene razón
5. El desarrollo del software no es cosa de un dia

Saludos,

Que sea menos amigo [Delphius] hace tiempo que te has encargado de hacer de esta profesión el eslabón perdido, haces parecer que es muy difícil, pero pues hay que divertirse aprendiendo

Salud OS

[BuRtOn]

Ha si la Teoria de la mala suerte...que cuando un 90% apunta a que todo sale bien, sale mal, y cuando todo apunta a que un 20% sale bien y un 80% sale mal, pues sale bien...jajajajaja.....

y creeme que no llevo 2 semans en la aplicaicon Delphius, llevo ya 1 mes y medio, y por que tan poco tiempo ?, soy yo y otro compañero en 2 pc's , y utilizamos una metodologia Dra....y es una aplicacion basica, solo maneja registros y algunas cuentas o contabilidad basica de ingresos....


Gracias Egostar ya vi tu post...lo voy a utilizar haber que sucede...ha y delphius, es que en el Rad 2007 la ayuda es un poco confusa, jejejeje.-..Gracias en fin amigos, son lo mejor de ese Club aunque me regañen ...

[BuRtOn]

Jjejejejeje, muchas gracias Egostar, eso era lo que necesitaba, yamismo estoy analizando el codigo para una proxima oportunidad ya sepa como se hace...pero Egostar aun me queda una duda...con el codigo que me dijiste uno mismo escoge la ruta de donde quiere que se alamcene el archivo....pero si quiero hacerlo directamente desde el codigo, como indicaria la ruta ???, pues me quedo esa duda....Pero gracias, y gracias a ti Delphius....

[[Delphius]]

Empezado por egostar

Que sea menos amigo [Delphius] hace tiempo que te has encargado de hacer de esta profesión el eslabón perdido, haces parecer que es muy difícil, pero pues hay que divertirse aprendiendo

Salud OS

¿Me estás llamando sasquatch?
Shh... no digas nada que mi intención es marearlos a todos:

Lo fácil es díficil y lo difícil es fácil. Esa técnica la uso con mis amigos...
ya ves porque ando asi.
Yo siempre me digo: quien se esfuerze en comprenderme verá una faseta equivocada de mi, y quien no me pretenda conocer verá una faseta real de mi. ¿O era alverrez la idea?

Saludos,

[[egostar]]

Empezado por BuRtOn

Jjejejejeje, muchas gracias Egostar, eso era lo que necesitaba, yamismo estoy analizando el codigo para una proxima oportunidad ya sepa como se hace...pero Egostar aun me queda una duda...con el codigo que me dijiste uno mismo escoge la ruta de donde quiere que se alamcene el archivo....pero si quiero hacerlo directamente desde el codigo, como indicaria la ruta ???, pues me quedo esa duda....Pero gracias, y gracias a ti Delphius....

Si quieres hacerlo desde código ya te hemos dicho que tienes varias opciones, que aunque no son del agrado de [Delphius] es como lo necesitas , en el post 13 te puse como hacerlo.

Empezado por Delphius

¿Me estás llamando sasquatch?
Shh... no digas nada que mi intención es marearlos a todos:

Lo fácil es díficil y lo difícil es fácil. Esa técnica la uso con mis amigos...
ya ves porque ando asi.
Yo siempre me digo: quien se esfuerze en comprenderme verá una faseta equivocada de mi, y quien no me pretenda conocer verá una faseta real de mi. ¿O era alverrez la idea?

Saludos,

PUF!! me dejas peor , tú disfruta pues, si te gusta regañar, pues que caray, regaña, [Caral] y yo pues solo nos reiremos

Salud OS

[[Caral]]

Hola
Yo creo que nuestro amigo Delphius necesita un buen descanso y compañia
Tranquilo amigo Delphius, cuando se llega a tu edad estas cosas suelen pasar, por lo menos eso me han dicho.
Saludos

[[Delphius]]

Empezado por egostar

Si quieres hacerlo desde código ya te hemos dicho que tienes varias opciones, que aunque no son del agrado de [Delphius] es como lo necesitas , en el post 13 te puse como hacerlo.

No no me agrada.. jajaja.

Empezado por egostar

PUF!! me dejas peor , tú disfruta pues, si te gusta regañar, pues que caray, regaña, [Caral] y yo pues solo nos reiremos

Salud OS

Ahora que lo dices... A ver... ¿donde hay otro novato al que le guste romperse cabeza con mis des-ayuda?
Ummm... tal vez eso es lo que provoca que me salga esa cana en la frente. ¡Y no soy viejo!

Saludos,

[*Caro*]

Hola Burton, por lo que yo entiendo, tu no quieres que el usuario pueda darle el nombre a tu archivo, por lo que, creo que sería mejor utilizar SelectDirectory como estabas intentando hacerlo al principio.

Código Delphi [-]
var
  Id         : TextFile;
  Carpeta : String;
begin
 if SelectDirectory('Seleccione la ruta de la carpeta', 'd:\', Carpeta) then
 begin
   //Crear Archivo
   AssignFile(Id,Carpeta+'\Id.txt');
   Rewrite(Id);
   Writeln(Id,Carpeta);
   CloseFile(Id);
 end;
end;

Esta función de devuelve True si se Acepta la carpeta seleccionada, el primer parametro solo es el titulo que se mostrará, el segundo la ruta de donde quieres que seleccione si es '' entonces te aparecera en Mi PC, el tercer parametro la variable donde se te almacenara la ruta seleccionada la cual le pasas al AssignFile concatenando el nombre del archivo que quieres.

Saluditos

[*Caro*]

Una cosita mas, no te olvides añadir en tu uses la unidad FileCtrl.

Saluditos