学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付
发新话题
打印

怎样用TreeView显示系统的驱动器列表和文件夹

怎样用TreeView显示系统的驱动器列表和文件夹

怎样用TreeView显示系统的驱动器列表和文件夹
请问怎样用TreeView显示系统的驱动器列表和文件夹,同时用ListView显示出所选文件夹下的文件呢?如下图.

TOP

好长时间没来了,回个帖子!
首先你获取系统盘符的程序写好了吗?这里我不介绍了。
for i := 0 to Count - 1 do (此Count 为盘符个数)
begiin
    ParentNode := TreeView.Items.AddObject(nil, **, **) 方法添加盘符
    获取该盘符下的文件夹循环插入
    for i := 0 to Count - 1 do  (此Count 为该盘符下的根目录的文件夹个数)
    begin
        TreeView.Items.AddObject(ParentNode, **, **) 添加文件夹
    end;
end;
不过上述方法不是太好,最好把这个写成单独的一个函数方法调用!先查看该盘符或文件夹下是否有孩子!
有则继续调用该方法画树,没有则循环!

listView事件同理!
上面你可能不是太能理解,漫漫琢磨吧,因为时间的缘故,没时间在这里了!
大家都是朋友,有空就来坐坐!

TOP

嗯.我试试吧.谢谢

TOP

何必这么费劲呢,直接用 TShellTreeView 和 TShellListView 搭配就可以了

TOP

这个行是行.但是不能加入节点的是吗?
我要的功能不只是本地.还在获取远程序机器的目录在本地以树型结构显示出来.
ShellTreeView控件不能满足吧?

TOP

发新话题