Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Obtener ruta completa (https://www.clubdelphi.com/foros/showthread.php?t=28769)

pepecharlie67 02-01-2006 13:52:54

Obtener ruta completa
 
Hola,bueno pues quisiera obtener el nombre de la ruta para poder salvar y cargar archivos.Hasta ahora he probado con ExtractFileDir(ParamStr(0)) pero no me funciona.Existe otra alternativa?Gracias

Neftali [Germán.Estévez] 02-01-2006 14:11:54

Si te refieres al ajecutable:

Código Delphi [-]
Application.ExeName;

pepecharlie67 02-01-2006 14:54:07

No,me refiero a un archivo .txt.Para cargar un archivo utilizo

Código Delphi [-]
IF Fileexists(ExtractFileDir (ParamStr(0))+NombreCargarConf.Text+'.ptd') THEN
      BEGIN
      Fichero:=NombreCargarConf.Text;
      MiFichero := TiniFile.Create(ExtractFileDir(ParamStr(0))+'/'+Fichero+'.ptd')
      {...}
      END
ELSE
      ShowMessage('El fichero solicitado no existe')

bien y para guardarlo lo mismo

IF NombGuardarConf.text<>'' THEN
   IF Fileexists(ExtractFileDir (ParamStr(0))+NombGuardarConf.Text+'.ptd') THEN
      DeseaSobrescribir.ShowModal
   ELSE
   BEGIN
     Fichero:=NombGuardarConf.Text;
    MiFichero:=TiniFile.Create(ExtractFileDir(ParamStr(0))+'/'+Fichero+'.ptd')
Pues bien,al cargar un fichero que he guardado previamente con el nombre de jose por ejemplo,me dice que al cargar el archivo jose el fichero no existe.¿Alguien sabe el porque?Gracias

pepecharlie67 02-01-2006 15:06:31

Ya encontre el problema,no se rian...me faltaba +'/',jaja.Gracias tuve un despiste y me volvi loco...estas resacas...jaja.Gracias

jhonny 02-01-2006 15:25:39

Me tome el atrevimiento de editar tu mensaje para poner las etiquetas [delphi], de esa manera puedes editar tu mensaje y ver como se debe hacer.


La franja horaria es GMT +2. Ahora son las 19:21:27.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi