新建文件夹(100分)

如何在程序中新建文件夹？
如何获取某文件夹下特定类型文件的数量？如*.bmp?

1. uses filectrl, 用 ForceDirectories 函数。
2.
var
Status: Integer;
SearchRec: TSearchRec;
i: Integer;
begin
i := 0;
Status := FindFirst(DirName+'/*.BMP', faAnyFile, SearchRec);
try
while Status = 0 do
begin
inc(i);
Status := FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
result := i;

特定类型文件的数量？如*.bmp?
find ,findnext，然后自己计数

多人接受答案了。