文件夹显示 ( 积分: 40 )

X

xhj12077021

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-28

• #1

我现在只想显示E:/123,文件夹下的所有文件夹（aa,bb,cc...），不显示文件夹下的文件。写了个代码不正确，因为时间紧，不能慢慢研究了，

 

X

xhj12077021

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-28

• #2

帮帮忙啊

 

Z

znj_326

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-28

• #3

SelectDirectory

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-28

• #4

procedure GetSubDirs(Folder: string; sList: TStrings);
var
sr: TSearchRec;
begin
if FindFirst(Folder + '*.*', faDirectory, sr) = 0 then //把faDirectory 改成faAnyFile可以列出隐藏及系统文件夹
try
repeat
if (sr.Attr and faDirectory) = faDirectory then
sList.Add (sr.Name);
until FindNext(sr) <> 0;
finally
FindClose(sr);
end;
end;

GetSubDirs('E:/123/', ListBox1.Items);

 

X

xhj12077021

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-28

• #5

我用的是ShellTreeView 显示的是E盘下的所有文件夹，由于我的123文件夹以及她下面的文件夹是在后来操作程序的时候生成的，所以就不能在ShellTreeView属性上直接定位到E：/123了，我想通过一个按钮来实现，只要点击按钮，在ShellTreeView只显示E：/123文件夹下的所有文件，请问怎么实现？

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-28

• #6

ShellTreeView.Root := 'E:/123/';

 

X

xhj12077021

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-28

• #7

接受答案了.