各位!谁知道怎么得到目录下的文件个数?
解决方案 »
- 如何用程序实现将远程服务器的数据库数据保存到本地数据库?
- 在Delphi2006编写一个简单的DCOM分布式应用程序所遇到的问题。
- 用什么控件显示表中所有字段的名称?清高手给予指点!(刚学delphi的人)
- 如何让Edit框中的字体靠右显示?
- 我想买Delphi 5 开发人员指南这本书,有没有人愿意转让呢?
- 关于 TstringGrid 问题??!!
- 向大家请教一个问题,lotus邮箱的问题,请帮帮忙,谢!!急!!
- Delphi如何制作一个类似鼠标滑动到QQ好友上时显示出来的好友信息提示框???
- 读取ini文件的问题?谢谢各位高手啦!^-^
- 过程的调用,是怎样的,请来个例子吗
- forgot2000的散分帖:问大家一个非技术问题,请踊跃回答。
- 高手出招,如解决必送分。
findnext
findclose请大家去 http://www.new7wonders.com/c/voting.php 投长城一票
//统计指定目录下指定类型文件数量(包括子目录)**********************************
//==============================================================================
function GetFileCount(DirName,FileType: string): Integer;
var DirInfo: TSearchRec;
DosError: Integer;
begin
Result := 0;
DosError := FindFirst(DirName+'\*.*', FaAnyfile, DirInfo);
while DosError=0 do
begin
if ((DirInfo.Attr and FaDirectory)=faDirectory) and (DirInfo.Name<>'.') and (DirInfo.Name<>'..')
then Result := Result + GetFileCount(DirName + '\' + DirInfo.Name, FileType);
{$IF DEFINED(WIN32) AND DECLARED(UsingVCL)}
if ((DirInfo.Attr and FaDirectory)<>FaDirectory) and ((DirInfo.Attr and FaVolumeID)<>FaVolumeID)
{$ELSE}
if ((DirInfo.Attr and FaDirectory)<>FaDirectory)
{$IFEND}
then if Trim(FileType)='*.*'
then Inc(Result)
else if Pos(UpperCase(Copy(FileType,Pos('*',FileType)+1,Length(FileType)-1)),UpperCase(DirInfo.Name))>0
then Inc(Result);
DosError := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);
end;