用delphi如何一次删除某个目录下的所有文件？

用FindFirst,FindNext,FindClose来遍历文件，用DeleteFile来删除。不耐洞过做为一个程序员，解决问题是第一位的，所做亩搭以可纯拿以用下述办法winexec('Deltree.exe

-y

c:\test',sw_hide)

没必要去循环删除，速度很慢，桐迹饥直接调用api就行了，如州宴下，直接在uses shellapi之后，局返调用SHMyDelDirectory去删除你的目录.

function SHMyDelDirectory(const Source: string): boolean

var

fo: TSHFILEOPSTRUCT

begin

FillChar(fo, SizeOf(fo), 0)

with fo do

begin

Wnd:= 0

wFunc := FO_Delete

pFrom := PChar(Source + #0)

pTo:= #0#0

fFlags := FOF_NOCONFIRMATION + FOF_SILENT

end

Result := (SHFileOperation(fo) = 0)

end

---