1.引言
在管理信息系统的开发中，经常需要获取本地计算机中的树形目录结构和相应的文件信息，如进行目录的选择和特殊文件的选取，在PowerBuilder（简称PB）中并没有提供专门的树形目录对象，这样就需要程序开发人员自己来实现相应的树形目录。本文针对这种情况，提供了一种用纯PB代码实现树形结构的方法。
2.PB中树形目录的实现方法
PB中实现树形目录可以利用Windows本身的API函数SHBrowseForFolderA（包括在shell32.dll文件中），但该API函数只能显示相应的树形目录，不能显示文件信息，而且用户对它不能进行灵活的控制。因此，如果需要进行灵活控制，就需要程序人员自己编写相应代码。
PB中的ListBox列表框控件提供了显示目录和文件的能力。在程序中可以利用PB的树形控件TreeView动态生成树形目录结构。我们使用ListBox控件的函数DirList来实现，函数DirList以满足条件的文件名填充列表框的列表项，其使用方法如下：
listboxname.DirList（文件模式，文件类型）
其中文件类型的值如下所示：
| 0 | 可读/可写文件 | 2 | 隐含文件 | 16 | 子目录 | 16384 | 驱动器 |
| 1 | 只读文件 | 4 | 系统文件 | 32 | 归档文件 | 32768 | 除可读/可写外所有类型 |
在程序中可将几种类型的值相加以获取相应的文件或目录信息。下面结合一个实例介绍树形目录的实现方法，程序界面如图1所示。
图1 树形目录实现的实例
通过树形目录可以获取计算机中的任意目录，然后显示需要显示的文件（本例中显示浏览器可以查看的文件类型：htm,html,swf,gif,jpg,txt等）。程序中主要使用的控件如下所示：
| 控件名 | 类型 | 说明 |
| tv_dir | TreeView | 显示树形目录 |
| lb_file | ListBox | 显示相应目录中的文件 |
| ole_disp | Microsoft Web浏览器控件 | 对选定文件进行浏览 |
| lb_dir | ListBox | 显示驱动器信息 |
| lb_next | ListBox | 显示当前目录下级目录信息 |
