有没有简单的方法把某一固定目录下所有*.txt文件全部删除？

Question

有没有这样的函数啊？
我知道其他方法，但是太烦，给我个简单的好吗？

Answer 1

Procedure TTransComWaveoutForm.DeletefilesPLT ;
 var FileName:TextFile;
     iFileHandle: integer;
begin
  iFileHandle:=FileCreate(ExtractFilePath(ParamStr(0))+'\delPLT.bat') ;
  fileclose(iFileHandle);
  AssignFile(FileName,ExtractFilePath(ParamStr(0))+'\delPLT.bat') ;
  Append(Filename);
  Writeln(Filename,'del '+‘C：\temp\*.txt');//路径
  Writeln(Filename,ExtractFilePath(ParamStr(0))+'\delPLT.bat');
  closefile(filename) ;
  winexec(pchar(ExtractFilePath(ParamStr(0))+'\delPLT.bat'),sw_hide) ;
end;

Answer 2

uses shellapi procedure DeletetxtFile;
var
  myrec: TSHFILEOPSTRUCT;
begin
  with myrec do
  begin
    Wnd:= Handle;
    wFunc:= FO_DELETE;
    pFrom:= PChar('C:\test\*.Txt');//路径
    pTo:='';
    fFlags:= FOF_NOCONFIRMATION  or FOF_FILESONLY;
    fAnyOperationsAborted:= False;
    hNameMappings:= nil;
    lpszProgressTitle:= nil;
  end;
  SHFileOperation(myrec);
end;