Como Eliminar y crear archivos
 

hola amigos:

tengo una aplicacion Delphi 6, que necesito elimina y crear un archivo TXT en un directorio especifico..pero no me resulta.

como lo hago..
gracias

Que has intentado :confused:

Salud OS

Hola

Código Delphi [-]
var
  Form1: TForm1;
  Ruta: String;
 
implementation

{$R *.dfm}

// guardar
procedure TForm1.Button1Click(Sender: TObject);
begin
  Ruta:= 'C:\Notas1.txt';
  Memo1.Lines.SaveToFile(Ruta);
  Memo1.Lines.Clear;
end;

// Mostrar
procedure TForm1.Button2Click(Sender: TObject);
begin
  Ruta:= 'C:\Notas1.txt';
 Memo1.Lines.LoadFromFile(Ruta);
  end;

// Eliminar
procedure TForm1.Button3Click(Sender: TObject);
begin
    Ruta:= 'C:\Notas1.txt';
   DeleteFile(Ruta);
end;

Saludos

Código Delphi [-]
Var
f2:TextFile;
s:String;
begin

S:='Hola que tal.'
Assign(F2, 'C:\Prueba.txt');
Write(F2,S);
CloseFile(F2);
end;

//Para eliminar un fichero puedes utilizar:

DeleteFile(NombreFichero);

Un Saludo.

ya intente con ruta := 'c:\triosoft\archivo.txt', pero no me lo eliminar



???'

Hola
Que codigo tienes hecho, si lo muestras podremos ver algo mas.
Saludos

:rolleyes::rolleyes::rolleyes:

Salud OS

Hola
Ya se amigo, ya se.
Lo que pasa es que como estas mas viejo que yo, ya sabes por donde va la procesión.:D:D
Saludos

:D:D:D, pues para que te digo que NO si SI

Salud OS

Y esta no le servira...?

http://www.clubdelphi.com/foros/showthread.php?t=17809

digo no...

Hola pruz, estas seguro que la ruta que le pasas existe, porque DeleteFile debería funcionarte, puedes hacer una prueba antes de eliminar con FileExists.

Código Delphi [-]
ruta := 'c:\triosoft\archivo.txt';
if FileExists(ruta) then
  DeleteFile(ruta)
else
  showmessage('El archivo no existe');

como te dicen Egostar y Caral, sería mejor que pusieras tu codigo para ver donde esta tu error, has hecho la prueba con el codigo que te han puesto arriba??

Saluditos