vb查找指定文件夹下面的所有文件和其子目录下的文件
来源:互联网 发布:微软的飞行仿真软件 编辑:程序博客网 时间:2024/04/28 21:28
''=============================================
''名称: 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
- vb查找指定文件夹下面的所有文件和其子目录下的文件
- 遍历指定文件夹下的子文件夹和其所有子文件
- VC 遍历指定文件下的所有文件夹和文件 + 删除指定文件夹及下面所有文件及文件夹
- Android 删除SD卡一个指定文件夹和其下的所有文件
- 删除指定文件夹以及文件夹下面的所有文件
- MFC遍历指定目录下的所有文件/文件夹(不遍历子目录)
- 遍历指定目录下的所有文件和目录, 以及子目录下的文件和目录
- Linux下使用find查找文件内容,跳过所有目录名成和指定子目录的方法
- python 查找文件夹下面的所有文件,读取文件
- Linux查找当前目录及其子目录下所有包含指定字符串的文件
- 复制和删除指定文件夹下面的所有的文件文件夹
- 查找某个文件夹下面的所有的文件 和 所有后缀名为".txt"的文件名
- C# 查找指定文件夹下 指定后缀名的所有文件(文件列表)
- 文件以及文件夹的创建。目录下所有文件和子目录查询
- 获取指定文件夹下所有子目录及文件(树形)
- 【转】获取指定文件夹下所有子目录及文件(树形)
- Linux列出某文件夹下面所有文件包括子目录得的文件
- 获取指定目录及其子目录下所有文件的绝对路径
- 使用API调用Winodws各种通用对话框(Common Diaglog)的方法
- Hibernate的优点
- 将sql数据倒入excel表格
- 从VB将数据导出到EXCEL
- 菜鸟眼中的黑客。
- vb查找指定文件夹下面的所有文件和其子目录下的文件
- 吃饭感想
- 深圳的美女和她们的眼神
- 庞升东的详细介绍 6月3日更新版
- 今天汉化了一个便签软件A note,遵守GNU的自由软件
- 寻找生命小意义——我的价值观和理想
- 结婚一周年,我爱上老婆了
- c++指针大家的讨论收集
- 近期写作预告 写作内容大纲