VB60中Dir函数的使用方法.doc

文档介绍：()函数的使用方法
　　VB中提供的成员函数dir返回一个满足指定类型或指定文件属性的文件名，目录名或卷标名。dir函数的语法结构为:
Member Function Dir[(Pathname[,attributes])] As String
　　其中参数Pathname通常为一个文件名，此文件名可以包含目录或文件夹以及驱动器符号，如果没有找到指定的Pathname，dir语句将返回一个零长度的字符串("")，支持多字符通配符和单字符通配符。需要注意的是：　　，否则会产生运行错误；　　，要得到其余满足条件的文件名，可以再次调用dir函数而不用带参数，当没有匹配的文件，dir函数返回零长度的字符串，而此时如果再想调用dir函数，必须指定pathname参数，否则出现运行错误；　　，但不能再次递归调用dir函数；　　，仅返回当前目录下的目录。　　例1
Public Sub main()
Dim filenames As String
filenames = Dir("c:\", vbNormal + vbDirectory)
Do While filenames <> ""
filenames
filenames = Dir ’再次调用dir函数,此时可以不带参数
Loop
End Sub
　　例2
’将符合条件的条件和目录分类,存到对应的数组中,完成输出
Public Sub main()
　Dim FileNames As String, DirNames As String
　Dim FileArray() As String, DirArray() As String
　Dim TotalDirs As Integer, TotalFiles As Integer
　Dim iLoop As Integer
　DirNames = "c:\"
　FileNames = Dir(Dirname, vbNormal + vbDirectory)
　Do While FileNames <> ""
　　If FileNames <> "." And FileNames <> ".." Then
　　　If (GetAttr(Dirname & FileNames) And vbDirectory) = vbDirectory Then
　　　　TotalDirs = TotalDirs + 1
　　　　ReDim Preserve DirArray(TotalDirs)
　　　　DirArray(TotalDirs) = FileNames
　　　Else
　　　　TotalFiles = TotalFiles + 1
　　　　ReDim Preserve FileArray(TotalFiles)