VB6.0中Dir()函数的使用方法

VB中提供的成员函数dir返回满足指定类型或文件属性的文件名、目录名或卷标名。dir函数的语法结构是:

字符串形式的成员函数Dir[(路径名[，属性])]

参数Pathname通常是一个文件名，它可以包含目录或文件夹以及驱动器号。如果找不到指定的路径名，dir语句将返回零长度字符串("")，该字符串支持多字符通配符和单字符通配符。请注意:

1.程序中第一次调用dir函数时必须指明pathname参数，否则会造成运行错误；

2.dir函数只返回满足路径名条件的第一个文件名或目录名。要获得满足条件的剩余文件名，可以再次调用dir函数而不使用参数。当没有匹配的文件时，dir函数返回一个零长度的字符串。此时，如果要再次调用DIR函数，必须指定pathname参数，否则会出现运行错误。

3.当没有检索到满足当前路径名匹配条件的文件时，可以改变新的路径名值，但不能再次递归调用dir函数；

4.调用dir函数时，将属性参数设置为vbdirectory不会连续返回子目录，而只会返回当前目录下的目录。

例1

public Sub main()
Dim filenames As String
filenames = dir(" c:\ "，v b+ Vb directory)
do while filenames " "
debug . print filenames
filenames = Dir '再次调用Dir函数，可以不用参数调用Dir函数
Loop
End Sub。

示例2

将符合条件的条件和目录进行分类，保存在对应的数组中，完成输出
public sub main()
Dim filenames为string，dirnames为string
dimfilearray()为string，DirArray()为String
Dim TotalDirs为Integer，TotalFiles为Integer
Dim iLoop为Integer

DirNames = " c:\ "
FileNames = Dir(Dirname，VB normal+VB directory)
Do While FileNames " "
If FileNames，"和文件名“..”然后
If (GetAttr(目录名&文件名)和vbDirectory) = vbDirectory然后
total dirs = total dirs+1
ReDim Preserve DirArray(total dirs)
DirArray(total dirs)= FileNames
Else
total files = total files+1
ReDim Preserve file array(total files)
file array(total files)= filename end If
将iLoop = 0的“_ _ Files _ _ _ _”
打印到UBound(FileArray)
Debug。print file array(iLoop)
Next
End Sub

Dir函数可以在后台使用，帮助用户查找并提示本机是否有文件或目录，然后使用文件或目录完成指定的操作，比如运行。但是因为不能递归使用，就意味着不能一次搜索整棵树。更糟糕的是，vb没有提供任何在多个未知目录中搜索给定文件或文件簇的工具。幸运的win32api提供了一些文件搜索的方法(SearchPath，FindFirst File，FindNext File等。).此外，您可以使用现有的文件搜索知识为用户创建一个listbox控件，用于显示找到的文件，以便用户可以选择其中一个。