dir()递归 遍历子目录
来源:互联网 发布:秃鹰气步枪数据分解图 编辑:程序博客网 时间:2024/04/27 01:06
dir()递归即可:
Private Sub Command1_Click()
Listfiles "d:/JAVA", List1
End Sub
Sub Listfiles(ByVal mydir As String, ByVal filelist As ListBox)
Dim i As Long, dirlevel As Long, fname As String, dirlist() As String
mydir = IIf(Right(mydir, 1) = "/", mydir, mydir & "/")
fname = Dir(mydir)
Do While fname <> ""
filelist.AddItem mydir & fname
fname = Dir
Loop
fname = LCase(Dir(mydir, vbDirectory))
Do While fname <> ""
If fname <> "." And fname <> ".." Then
If GetAttr(mydir & fname) And vbDirectory Then
dirlevel = dirlevel + 1
ReDim Preserve dirlist(dirlevel)
dirlist(dirlevel) = mydir & fname
End If
End If
fname = Dir
DoEvents
Loop
For i = 1 To dirlevel
Listfiles dirlist(i) & "/", filelist
Next
End Sub
Private Sub Command1_Click()
Listfiles "d:/JAVA", List1
End Sub
Sub Listfiles(ByVal mydir As String, ByVal filelist As ListBox)
Dim i As Long, dirlevel As Long, fname As String, dirlist() As String
mydir = IIf(Right(mydir, 1) = "/", mydir, mydir & "/")
fname = Dir(mydir)
Do While fname <> ""
filelist.AddItem mydir & fname
fname = Dir
Loop
fname = LCase(Dir(mydir, vbDirectory))
Do While fname <> ""
If fname <> "." And fname <> ".." Then
If GetAttr(mydir & fname) And vbDirectory Then
dirlevel = dirlevel + 1
ReDim Preserve dirlist(dirlevel)
dirlist(dirlevel) = mydir & fname
End If
End If
fname = Dir
DoEvents
Loop
For i = 1 To dirlevel
Listfiles dirlist(i) & "/", filelist
Next
End Sub
- dir()递归 遍历子目录
- 递归方式遍历子目录下的子目录
- C#递归遍历子目录与子目录中的文件
- C#递归遍历子目录与子目录中的文件
- C#递归方法遍历目录及子目录
- C#递归方法遍历目录及子目录
- 用非递归方式遍历目录及其子目录的文件
- 用非递归方式遍历目录及其子目录的文件
- 采用非递归方式遍历目录及其子目录的文件
- MFC递归遍历目录下所有子目录和文件
- 采用非递归方式遍历目录及其子目录的文件
- 非递归方式遍历目录及其子目录的文件
- C# 非递归遍历所有子目录与子文件
- MFC递归遍历目录下所有子目录和文件
- Makefile 递归遍历目录(含子目录) 编译动态库
- php递归遍历所有目录及子目录和文件实例
- 冒泡排序 二分排序 while遍历、递归遍历目录与子目录文件
- dir函数:遍历文件名
- JAVA概述
- 如何理解LPCTSTR类型?
- 一个非常简洁的验证码程序
- Java中接口的作用
- 连接:)
- dir()递归 遍历子目录
- cas实现单点登录
- JAVA平台标准
- JAVA“白皮书”中的关键词汇
- 判断一个指针是否为空,abort()、assert、抛出异常的使用、ASSERT与VERIFY宏的区别
- JSP显示在线人数代码服务
- 使用BHO定制Internet Explorer浏览器
- jsp在线人数统计
- EXCEL 判断一个单元格中是否有图片