如何在treeview中显示指定文件夹中的文件和子文件夹

[blueraindrop]

有什么函数才能取道指定文件夹中的文件和子文件夹
例如：要d盘根目录下的text中的所有文件和子文件夹显示在treeview中

[blueraindrop]

谢谢大家
请问yjs_lh(长风浪子)怎样才能让ShellListView出现ShellTreeView指定文件夹中的文件？

[laishoulin]

procedure TForm1.GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode; IncludeFiles: boolean);
var
SearchRec: TSearchRec;
ItemTemp: TTreeNode;
position:integer;
tempstring:string;
begin
TreeView1.Items.BeginUpdate;
if Directory[length(Directory)] <> '\' then Directory := Directory + '\';
if FindFirst(Directory + '*.*',faDirectory,SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] <> '.') then
begin
if (SearchRec.Attr and faDirectory > 0) then
Item := Tree.Items.AddChild(Item,SearchRec.Name);
ItemTemp := Item.Parent;
GetDirectories(Tree,Directory + SearchRec.Name,Item,IncludeFiles);
Item := ItemTemp;
end
else if IncludeFiles then
if SearchRec.Name[1] <> '.' then
begin
ItemTemp:=Tree.Items.AddChild(Item,SearchRec.Name);
ItemTemp.ImageIndex:=1;
ItemTemp.SelectedIndex:=1;
tempstring:=Directory + SearchRec.Name;
position:=pos(dirname,tempstring);
tempstring:=trim(Copy(tempstring,position+length(dirname),length(tempstring)));
if GetFileEx(tempstring)='txt' then//text文件
filelist.Add(tempstring);
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
treeView1.Items.EndUpdate;
end;

[goodhazel]

TreeView中每个节点的Data属性是个pointer类型.让他指向你定义的指针类型

[yjs_lh]

建议用ShellTreeView(D6).可以完全满足要求。

[laishoulin]

哦！他用的不是Delphi 6呀？我说呢！我用的
D6