zoukankan      html  css  js  c++  java
  • 查找指定文件夹下面的所有文件和其子目录下的文件

    ''=============================================
    ''名称: FindPath
    ''作用: 查找指定文件夹下面的所有文件和其子目录下的文件
    ''参数:strPath 要查找的目录,
    ''      strFiles 用于存查找结果的缓冲区,String 类型的动态数组,调用时事先初始化, 如Redim strFiles(0)
    ''      FileCount 用于返回文件个数
    ''=============================================
    Public Sub FindPath(ByVal strPath As String, strFiles() As String, FileCount As Long)
    Dim strDirs()   As String
    Dim strResult   As String
    Dim FileLimit   As Long
    Dim dirLimit    As Long
    Dim dirCount    As Long
    Dim I           As Long
        
        FileLimit = UBound(strFiles) + 1
        dirLimit = 0
        If Right$(strPath, 1) <> "" Then strPath = strPath & ""
        strResult = Dir(strPath, vbDirectory + vbSystem + vbReadOnly + vbHidden + vbNormal + vbArchive)
        Do While Len(strResult) > 0
            If strResult <> "." And strResult <> ".." Then
                If (GetAttr(strPath & strResult) And vbDirectory) <> vbDirectory Then
                    If FileCount >= FileLimit Then
                        ReDim Preserve strFiles(FileLimit + 10)
                        FileLimit = FileLimit + 10
                    End If
                    strFiles(FileCount) = strPath & strResult
                    FileCount = FileCount + 1
                Else
                    If dirCount >= dirLimit Then
                        ReDim Preserve strDirs(dirLimit + 10)
                        dirLimit = dirLimit + 10
                    End If
                    strDirs(dirCount) = strPath & strResult
                    dirCount = dirCount + 1
                End If
            End If
            strResult = Dir(, vbDirectory + vbSystem + vbReadOnly + vbHidden + vbNormal + vbArchive)
        Loop
        
        For I = 0 To dirCount - 1
            Call FindPath(strDirs(I), strFiles, FileCount)
        Next I
    End Sub
  • 相关阅读:
    VIM文本替换命令
    VIM格式化代码(How to format code with VIM)
    字符串匹配的Boyer-Moore算法
    Java中数组的遍历
    UVa10723
    uva242,Stamps and Envelope Size
    UVa1630,Folding
    uva1629,Cake Slicing,记忆化搜索
    uva 10118,记忆化搜索
    uva10003
  • 原文地址:https://www.cnblogs.com/Spacecup/p/3642884.html
Copyright © 2011-2022 走看看