批量删除文件的问题.

Question

delphi 里有没有类似dos 里那样，del *.txt 
这样的命令语句呢？
deletefile(fliename )只能删除一个文件的说。
要删除全部还得写个循环。

Answer 1

Var
 fos : TSHFileOpStruct;
 s : String;
begin
  s: = 'C:\a.txt'#0'C:\b.txt'#0#0;
  fos.Wnd:=0;
  fos.wFunc := FO_DELETE;
  fos.pFrom := PChar(s);
  fos.fFlags:= FOF_ALLOWUNDO;
  SHFileOperation(fos);
end.
随手写的....

Answer 2

如果SHFileOperation不够用
还可以自己写递归来删除
递归可以自己控制
SHFileOperation可是全部删的
有点危险