如何抓取一個目錄下的所有(很多)文件的名稱?

[ccbzzp]

如何抓取一個目錄下的所有(很多)文件的名稱?

[terrytzq]

你又开啊。
http://community.csdn.net/Expert/topic/3723/3723238.xml?temp=.641247

[jackie168]

procedure TForm1.Button1Click(Sender: TObject);
var ss:Tsearchrec;
filepath:string;
begin
filepath:='c:\';
listbox1.Items.Clear;
if findfirst(filepath+'*.*',faAnyFile,ss)=0 then
begin
if not ((ss.Attr and fadirectory)=fadirectory) then
listbox1.Items.Add(ss.Name);
while findnext(ss)=0 do
begin
if not ((ss.attr and fadirectory)=fadirectory) then
listbox1.Items.Add(ss.Name);
end;
findclose(ss);
end;
end;

[scorphy]

考虑倒子目录没有？
------------------------------------
心中多少的创伤，不可抵挡的空虚，卑躬屈膝的一生，今天只想冲出那枷锁，就要象狂人，金属者－－－金属狂人

[Kshape]

你又开啊。
http://community.csdn.net/Expert/topic/3723/3723238.xml?temp=.641247

[csdnxlh]

学习!