TreeView组件遍历磁盘目录
来源:互联网 发布:阿里云过户域名流程 编辑:程序博客网 时间:2024/04/30 10:31
unit treeview;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, FileCtrl;
type
TfrmMain = class(TForm)
DriveComboBox1: TDriveComboBox;
dirlst: TDirectoryListBox;
tv: TTreeView;
procedure DLBChange(Sender: TObject);
private
{ Private declarations }
procedure myfind(Bnode:TTreeNode);
public
{ Public declarations }
end;
var
frmMain: TfrmMain;
directorynote,filenode:TTreeNode;
implementation
{$R *.dfm}
procedure TfrmMain.DLBChange(Sender: TObject);
begin
tv.Items.Clear;
myfind(directorynote);
end;
procedure TfrmMain.myfind(Bnode: TTreeNode);
var
sr:TSearchRec;
Err:Integer;
begin
Err := FindFirst('*.*',$37,sr);
while(Err=0)do
begin
if(sr.Name[1]<>'.')then
begin
if(sr.Attr and faDirectory)=0 then
begin
tv.Items.AddChildFirst(bnode,sr.Name);
end;
if(sr.Attr and faDirectory)=faDirectory then
begin
ChDir(sr.Name);
Application.ProcessMessages;
myfind(filenode);
ChDir('..');
end;
end;
Err :=FindNext(sr);
end;
end;
end.
0 0
- TreeView组件遍历磁盘目录
- 使用TreeView遍历磁盘目录
- 借助TreeView控件遍历本地磁盘并生成目录树
- java 遍历磁盘目录
- java遍历磁盘目录
- C语言 遍历磁盘目录
- 遍历磁盘目录代码实例
- vc中treeview显示磁盘目录和文件代码
- [C#]TreeView控件使用之磁盘目录查看器
- 遍历磁盘下的所有目录
- 【MFC】获取磁盘名称和遍历磁盘目录方法
- 在.NET环境下用Treeview遍历活动目录
- Asp.Net Web Form c#TreeView遍历文件目录
- 遍历TreeView
- 遍历 Treeview
- 遍历treeview
- 遍历所有磁盘根目录及次级目录,查找目标文件夹
- C++实现递归对指定磁盘目录进行遍历
- ERROR: Can't get master address from ZooKeeper; znode data == null
- idea创建web默认地址栏
- Nor Flash的CFI与JEDEC接口
- [BZOJ1497] [NOI2006] 最大获利 - 网络流
- 有向无环图(DAG)的最小路径覆盖
- TreeView组件遍历磁盘目录
- Spring 4 MVC 视图解析器(XML JSON PDF等) 纯注解(带源码)【推荐】
- nyoj 115 城市平乱 迪杰斯特拉
- [LeetCode]048-Rotate Image
- git
- Problem-F
- Activity生命周期详细分析
- ListView相关
- 在ios要实现不定参数的函数