Go: Delphi Delete all files under the specified folder

function Tftpcontentthd.deletedirectory (nowpath:string): Boolean;var  Search:tsearchrec;  Ret:integer;  Key:string;begin  if Nowpath[length (nowpath)] <> ' then    nowpath: = Nowpath + ' \ ';  Key: = Nowpath + ' * * ';  RET: = FindFirst (Key, faanyfile, search);  While ret = 0 does  begin    if (search. Attr and fadirectory) = fadirectory) then    begin      if (search. Name <> '. ') and (Search.name <> ') then      begin        DeleteDirectory (Nowpath + search.name);        RemoveDir (Nowpath + search.name); Add End If you need to delete the folder      ;    End    Else    begin      if (search. Attr and Fadirectory) <> fadirectory) then      begin        DeleteFile (Pansichar (Nowpath + search.name));      End;    End;    RET: = FindNext (search);  End;  FindClose (search. Findhandle);  FindClose (search); Found in the thread can not use this, can only use the above handle  //removedir (Nowpath);//If you need to delete the outermost folder, add  result: = True;end;

　　

Goto: Delphi Deletes all files under the specified folder