如何得知文件夹下文件个数？(10分)

R

Rik

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #1

如何得知文件夹下文件个数？

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #2

很简单亚，比如说把坛上贴过的连子目录拷贝目录的函数稍微修改一下就OK了

 

R

Rik

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #3

谁能写一段代码，看看

 

憔

憔悴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #4

自己找呀，论坛上多着呢

 

R

Rik

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #5

我找了，怎么找不到？

 

L

Laird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #6

procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
i:integer;
begin
i:=1;
if FindFirst('d:/12/*.*',faAnyFile, sr )=0 then
begin
while FindNext(sr) = 0 do
inc(i);
SysUtils.FindClose(sr);
end;
ShowMessage(IntToStr(i) );
end;

 

R

Rik

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #7

接受答案了.