請教各位DFW,怎樣才能得到某一個目彔中的文件個數?(30分)

J

jeary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-17

• #1

如題.

 

南

南宫吹云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-17

• #2

包括子目录吗？

 

P

pink_wt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-17

• #3

如果不嵌套目录的话，用findfirst,findnext就可以搞定

 

J

jeary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-17

• #4

不包括子目彔.

 

南

南宫吹云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-17

• #5

那可以这样：
var
flb:tfilelistbox;
begin
flb:=tfilelistbox.creat(self);
flb.directory:=s_syspath;//s_syspath为你指定的目录名
flb.mask:='*.*';
flb.parent:=self;
//flb.items.count 就是此目录下的文件个数了
flb.free;
end;

 

薄

薄荷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-17

• #6

下面的函数可以。
procedure GetAllFileFromDir(Dir: string; FileList: TStrings);
var
finished: Integer;
sr: TSearchRec;
begin
if fileList=nil then exit;
if FindFirst(dir+'/*.lnk',faAnyfile,sr)= 0 then
begin
Repeat
//if (sr.Name<>'.') and (sr.Name<>'..') then
FileList.Add(sr.Name);
until
FindNext(sr)<>0;
FindClose(sr);
end;
end;

 

J

jeary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-18

• #7

謝謝各位!