Slet fil

markerer den og trykker på del

DeleteFile();

klatten: Kig lige på kategorien inden du svarer næste gang :)

gravbamzula: Du kan gøre enten som martinlind skriver, eller også kan du kigge lidt på http://borrisholt.com/FileIO/DelphiSource/Filehandling.zip som indeholder en del go\'e rutiner hvis du får brug for at slette, flytte osv. mange filer  !

Snowball

snowball>
Sorry :-(

Her er en lille text - der gør det lidt nemmere :

Procedure WipeFile(filename: String);
Var
buffer: Array [0..4095] of byte;
max, n: LongInt;
i: Integer;
fs: TFileStream;

Procedure RandomizeBuffer;
Var
  i: Integer;
Begin
  For i:= Low(buffer) to High(buffer) Do
    buffer[i] := Random(256);
End;

Begin
fs:= TFilestream.Create(filename, fmOpenReadWrite or fmShareExclusive);
try
  For i:= 1 to 3 Do Begin
    RandomizeBuffer;
    max := fs.Size;
    fs.Position := 0;
    While max > 0 Do Begin
      If max > Sizeof(buffer) Then
        n:= sizeof(buffer)
      Else
        n:= max;
      fs.Write( Buffer, n );
      max := max - n;
    End;
    FlushFileBuffers(fs.handle);
  End;
finally
  fs.free;
end;
Deletefile(filename);
End;

procedure TForm1.Button1Click(Sender: TObject);
Const FileName = \'C:\\Test.txt\';
begin
if fileexists(FileName) then
DeleteFile(FileName) else showmessage(\'Filen er der ikke!!\');
end;