编程论坛's Archiver

hackergirl 发表于 2008-4-22 17:11

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

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

[img]http://376389218.129.tofor.com/temp/test.jpg[/img]

volte 发表于 2008-4-22 17:31

好长时间没来了,回个帖子!
首先你获取系统盘符的程序写好了吗?这里我不介绍了。
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事件同理!
上面你可能不是太能理解,漫漫琢磨吧,因为时间的缘故,没时间在这里了!

hackergirl 发表于 2008-5-1 12:24

嗯.我试试吧.谢谢

makebest 发表于 2008-5-1 20:51

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

hackergirl 发表于 2008-5-2 15:05

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

页: [1]

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.