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

VB6.0 中 Dir() 函数的使用方法 VB 中提供的成员函数 dir 返回一个满足指定类型或指定文件属性的文件名，目录名或卷标名。 dir 函数的语法结构为 : Member Function Dir[(Pathname[,attributes])] As String 其中参数 Pathname 通常为一个文件名，此文件名可以包含目录或文件夹以及驱动器符号，如果没 有找到指定的 Pathname，dir 语句将返回一个零长度的字符串 () ，支持多字符通配符和单字符通配符。 需要注意的是： 1. 在程序中第一次调用 dir 函数时必须指明 pathname 参数，否则会产生运行错误； 2.dir 函数只返回满足 pathname 条件的第一个文件名或目录名， 要得到其余满足条件的文件名， 可 以再次调用 dir 函数而不用带参数，当没有匹配的文件， dir 函数返回零长度的字符串，而此时如果再 想调用 dir 函数，必须指定 pathname 参数，否则出现运行错误； 3. 在没有检索到满足当前 pathname 匹配条件的文件时可以改变新的 pathname 值，但不能再次递归 调用 dir 函数； 4. 调用 dir 函数时将属性参数设置为 vbdirectory 并不能连续返回子目录， 仅返回当前目录下的目 录。 例 1 Public Sub main() Dim filenames As String filenames = Dir(c:\, vbNormal + vbDirectory) Do While filenames Debug.Print 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 F