VB6.0 DirListBox

在Visual Basic 6 (VB6) 中，DirListBox 控件是一种列表框，主要用于显示当前工作目录下的文件和文件夹名。它主要用于帮助用户浏览文件系统，而不是像普通的 ListBox 控件那样用于静态数据展示。以下是使用 DirListBox 的基本步骤：

1. **创建 DirListBox**：在设计界面中，从工具箱中拖拽一个 DirListBox 控件到你的窗体上。

2. **初始化**：在 Form_Load 或某个事件中，可以填充 DirListBox 的 ListItems 属性，显示默认的文件夹内容：

Private Sub Form_Load()
    DirListBox1.List = Directory.GetDirectories(".") ' 获取当前目录的所有子目录
    DirListBox1.List = DirListBox1.List & Directory.GetFiles(".") ' 获取当前目录的所有文件
End Sub

这将加载当前目录（"." 表示根目录）下的所有文件和子目录。

3. **处理事件**：当用户选择一个项目时，通常会在 DirListBox 控件的 Change 事件中获取所选文件或目录：

Private Sub DirListBox1_Change()
    Dim selectedPath As String = DirListBox1.List( DirListBox1.ListIndex )
    ' 对选定的路径进行进一步处理，如打开、读取或删除等
End Sub

在上述代码中，`ListIndex` 属性表示当前选中的项在 ListItems 数组中的索引。