【转】VB问题:如何读取、返回某一目录下的所有文件名
2011-08-11 09:59
375 查看
控件:按钮一个 列表框一个
Function SearchFiles(Path As String,FileType As String)
Dim Files() As String '文件路径
Dim Folder() As String '文件夹路径
Dim a, b, c As Long
Dim sPath As String
sPath = Dir(Path & FileType) '查找第一个文件
Do While Len(sPath) '循环到没有文件为止
a= a + 1
ReDim Preserve Files(1 To a)
Files(a) = Path & sPath '将文件目录和文件名组合,并存放到数组中
List1.AddItem Files(a) '加入list控件中
sPath = Dir '查找下一个文件
DoEvents '让出控制权
Loop
sPath = Dir(Path & "\",vbDirectory) '查找第一个文件夹
Do While Len(sPath) '循环到没有文件夹为止
IfLeft(sPath, 1) <> "." Then '为了防止重复查找
IfGetAttr(Path & "\" & sPath) And vbDirectory Then '如果是文件夹则。。。。。。
b = b + 1
ReDim Preserve Folder(1 To b)
Folder(b) = Path & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中
End If
End If
sPath = Dir '查找下一个文件夹
DoEvents '让出控制权
Loop
For c = 1 To b '使用递归方法,遍历所有目录
SearchFiles Folder(c), FileType
Next
End Function
Private Sub Command1_Click() '调用
SearchFiles "e:\","*.*"
End Sub
Function SearchFiles(Path As String,FileType As String)
Dim Files() As String '文件路径
Dim Folder() As String '文件夹路径
Dim a, b, c As Long
Dim sPath As String
sPath = Dir(Path & FileType) '查找第一个文件
Do While Len(sPath) '循环到没有文件为止
a= a + 1
ReDim Preserve Files(1 To a)
Files(a) = Path & sPath '将文件目录和文件名组合,并存放到数组中
List1.AddItem Files(a) '加入list控件中
sPath = Dir '查找下一个文件
DoEvents '让出控制权
Loop
sPath = Dir(Path & "\",vbDirectory) '查找第一个文件夹
Do While Len(sPath) '循环到没有文件夹为止
IfLeft(sPath, 1) <> "." Then '为了防止重复查找
IfGetAttr(Path & "\" & sPath) And vbDirectory Then '如果是文件夹则。。。。。。
b = b + 1
ReDim Preserve Folder(1 To b)
Folder(b) = Path & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中
End If
End If
sPath = Dir '查找下一个文件夹
DoEvents '让出控制权
Loop
For c = 1 To b '使用递归方法,遍历所有目录
SearchFiles Folder(c), FileType
Next
End Function
Private Sub Command1_Click() '调用
SearchFiles "e:\","*.*"
End Sub
相关文章推荐
- C++读取某一目录下的所有文件名
- C++读取某一目录下的所有文件名
- [VB.NET]请问如何从OpenFileDialog中读取所有文件名到Listbox
- 如何获取某一目录下的所有文件名
- 如何用几行代码读取目录下所有的图片
- DELPHI如何获取某目录下的所有文件名?
- Python实现读取目录所有文件的文件名并保存到txt文件代码
- php读取目录及子目录下所有文件名的方法
- 如何是获取一个文件夹里所有以.java结尾文件的数目,并把符合条件的文件名写到一个目录下。
- 如何用几行代码读取目录下所有的图片
- 批量更改某一目录之下所有文件名
- 如何读取文件夹下的所有文件名到TXT文件中
- Python-读取目录所有文件的文件名并保存到txt文件
- Python 读取指定目录及其子目录下所有文件名
- VC读取目录下所有文件名
- 在windows 、linux下读取目录下所有文件名
- php读取目录及子目录下所有文件名
- 用Perl读取一个目录下的所有文件名
- 读取目录下所有的文件名
- php读取目录及子目录下所有文件名的方法