如何用树状控件 显示硬盘上的所有文件？

[Fax512]

如何用树状控件 显示硬盘上的所有文件？

[lqdmafeng]

应该是在WIN31中用对应的组件

[Cipherliu]

DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
DriveComboBox1: TDriveComboBox;
用这三种控件

[lxhong1980]

TDirectoryListBox;
TFileListBox
TDriveComboBox;

[libra163]

Delphi6带的有啊。在Samples面板中

[CDSoftwareWj]

procedure DirToTreeView(Tree: TTreeView; Directory: string; Root: TTreeNode; IncludeFiles:
Boolean);
var
SearchRec: TSearchRec;
tempItem, ItemTemp: TTreeNode;
begin
with Tree.Items do
try
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
begin
Root := AddChild(Root, SearchRec.Name);
Root.ImageIndex := 0;
Root.SelectedIndex := 2;
end;
ItemTemp := Root.Parent;
DirToTreeView(Tree, Directory + SearchRec.Name, Root, IncludeFiles);
Root := ItemTemp;
end
else if IncludeFiles then
if SearchRec.Name[1] <> '.' then
begin
tempItem := AddChild(Root, SearchRec.Name);
tempItem.ImageIndex := 1;
tempItem.SelectedIndex := 1;
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
finally
EndUpdate;
end;
Tree.TopItem.Expanded := True;
end;

用时

DirToTreeView(newReportForm.TreeView1, ApplicationPath + 'stencil', newReportForm.TreeView1.TopItem, True);


哇哈哈哈 分的拿来！！！

[zhoutian618]

楼上的方法行得通。

[stevenpeng]

用TShellListView与TShellTreeView吧