怎样在Delphi中统计一个文件夹中的文件个数？或者怎样删除一个有文件的文件夹？(50分)

怎样在Delphi中统计一个文件夹中的文件个数？或者怎样删除一个有文件的文件夹？

procedure DeleteDir(const Path: string);
var
DirName: string;
FileOp: TSHFileOpStruct;
begin
DirName:=Path+'/*.*'+#0;
with FileOpdo
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(DirName);
pTo := nil;
fFlags := FOF_Silent + FOF_NoConfirmation;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil
end;
SHFileOperation(FileOp);
RemoveDir(Path)
end;

接受答案了.