详细介绍vb文件系统控件的使用

　　标识单个目录

　　列表框中的每个目录关联一个整型标识符，可用它来标识单个目录。CommonDialog 控件没有提供这个功能。Path 属性 （Dir1.Path） 指定的目录总是有 ListIndex 值-1.紧邻其上的目录具有 ListIndex 值- 2，再上一个为ListIndex- 3，依次类推。Dir1.Path 的第一个子目录具有 ListIndex 值 0.如图 7.18 所示，若第一级子目录有多个目录，则每个目录的 ListIndex 值按 1、2、3……的顺序依次排列。

　　设置当前目录

　　可用目录列表框的 Path 属性设置或返回列表框中的当前目录 （ListIndex = -1）。例如，若为图 7.18 中的 Drive1.Path 赋以 "c：\payroll"，则目录 \Pagroll将成为当前工作目录。

　　同样，可把驱动器列表框的 Drive 属性赋予目录列表框的 Path 属性：

　　Dir1.Path = Drive1.Drive

　　执行赋值语句时，目录列表框将显示此驱动器上所有有效的目录和子目录。缺省时，目录列表框将显示驱动器的当前目录的所有上级目录以及下一级子目录，而驱动器是被指定给 Dir1.Path 属性的。目录列表框并不在操作系统级设置当前目录；它只是突出显示目录并将其 ListIndex 值设置为 -1.

　　为设置当前工作目录应使用 ChDir 语句。例如，下列语句将当前目录变成目录列表框中显示的一个目录：

　　ChDir Dir1.Path在使用文件控件的应用程序中，可用 Application 对象将当前目录设置成应用程序的可执行 （。exe） 文件所在目录：

　　ChDrive App.Path　　　'设置驱动器。

　　ChDir App.Path　　　　'设置目录。

　　注意 Path 属性只在运行时可用，在设计时不可用。

　　详细信息 关于 Application 对象的详细信息，请参阅《Visual Basic 6.0语言参考》中“App 对象”。

　　单击目录项

　　目单击目录列表框中的某个项目时将突出显示该项目。而双击项目时则把它赋予 Path 属性并把其 ListIndex 属性设置为－1，然后重绘目录列表框以显示直接相邻的下级子目录。

　　查找目录的相对位置

　　ListCount 属性返回当前扩展目录下的目录数目，而不是目录列表框中的目录总数。因为当前扩展目录的 ListIndex 值总为 - 1，所以可以编程来判断在目录层次结构中，当前扩展目录与根目录有多大距离。例如：

　　'初始化当前扩展目录。

　　GoHigher = 0

　　'若目录不存在，

　　'则 Dir1.List（x） 返回空字符串。

　　Do Until Dir1.List（GoHigher） = ""

　　GoHigher = GoHigher - 1

　　Loop

　　'如有必要可转换成正数。

　　LevelsAbove = Abs（GoHigher）

　　文件列表框

　　文件列表框在运行时显示由 Path 属性指定的包含在目录中的文件。可用下列语句在当前驱动器上显示当前目录中的所有文件：

　　File1.Path = Dir1.Path

　　然后，可设置 Pattern 属性来显示这些文件的子集—─例如，设置为 *.frm后将只显示这种扩展名的文件。Pattern 属性也接受由分号分隔的列表。例如，下列代码行将显示所有扩展名为 .frm 和 .bas 的文件：

　　File1.Pattern = "*.frm； *.bas"Visual Basic 支持 ？ 通配符。例如，？？？。txt 将显示所有文件名包含三个字符且扩展名为 .txt 的文件。

上一页  [1] [2] [3] 下一页

【责编:John】