怎样读取列表框中的目录

huangyz_xy

请问怎么依次读取以下列表框中的目录，读取一个需要处理目录下的文件，谢谢哈！急用！

huangyz_xy

又是Henry D. Sy ,谢谢了,兄弟!

ACMAIN_CHM

参见ACCESS自带帮助文档中关于 ListBox 对象 ItemData 属性 的说明和例子。


******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次

Henry D. Sy

下面的示例打印“联系人”窗体上“名称”列表框中每个选定行的绑定列值。若要试用该示例，请创建列表框，根据需要设置其 BoundColumn 属性并将 MultiSelect 属性设为“简单”或“展开的”。然后再切换到“窗体”视图，在列表框中选择几行，并运行以下代码：

Sub BoundData()
    Dim frm As Form, ctl As Control
    Dim varItm As Variant

    Set frm = Forms!Contacts
    Set ctl = frm!Names
    For Each varItm In ctl.ItemsSelected
        Debug.Print ctl.ItemData(varItm)
    Next varItm
End Sub