vb查找指定文件夹下面的所有文件和其子目录下的文件
2005-06-16 13:15
791 查看
''=============================================
''名称: 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
''名称: 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
相关文章推荐
- python查找指定文件夹下所有文件并按修改时间倒序排列的方法
- 【转】获取指定文件夹下所有子目录及文件(树形)
- java 删除指定文件夹 以及文件下下面的所有文件
- Python 批量删除文件夹下面指定类型的所有文件
- python 文件和目录 当前目录以及当前目录的所有子目录下查找文件名包含指定字符串的文件,并打印出相对路径。
- C语言读取指定文件夹下面的所有文件
- win32命令行小程序获取指定文件夹或者目录下面的所有文件大小,文件数量,目录数量
- vb-复制ie临时文件夹下所有mp3文件到指定目录,并且将utf8编码转换过来
- Python 批量删除文件夹下面指定类型的所有文件
- 查找指定目录下所有文件(包括子目录)——使用递归
- 用JAVA扫描指定文件夹下面所有以.txt结尾的文件,并将其绝对路径输出
- 遍历文件夹下面所有文件(或者指定文件)
- C#查找指定文件夹下指定后缀名的所有文件
- [置顶] win32命令行小程序获取指定文件夹或者目录下面的所有文件大小,文件数量,目录数量
- 获取一个想要的指定文件的集合,获取文件夹下(包含子目录的所有.java的文件对象,并存储到集合中)
- asp.net 获取指定文件夹下所有子目录及文件(树形)
- vb-复制ie临时文件夹下所有mp3文件到指定目录,并且将utf8编码转换过来
- 编写一个程序,能在当前目录以及当前目录的所有子目录下查找文件名包含指定字符串的文件,并打印出相对路径。
- C# 查找指定文件夹下 指定后缀名的所有文件(文件列表)
- C#两种方式获取指定文件夹下所有子目录及文件