社区
VB基础类
帖子详情
如何遍历某文件夹下的所有文件夹(不要求遍历文件),并一一列出?
xiaoyi1979
2003-09-25 11:16:20
如何遍历某文件夹下的所有文件夹(不要求遍历文件),并一一列出?
比如我要遍历c:\test\的所有文件夹(不包括文件),
在combo1中把文件夹一一列出
...全文
126
6
打赏
收藏
如何遍历某文件夹下的所有文件夹(不要求遍历文件),并一一列出?
如何遍历某文件夹下的所有文件夹(不要求遍历文件),并一一列出? 比如我要遍历c:\test\的所有文件夹(不包括文件), 在combo1中把文件夹一一列出
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lxcc
2003-09-25
打赏
举报
回复
Public Sub ShowFloder(strDir As String, objDir As Object)
On Error Resume Next
Dim lngCount As Long
Dim i As Long
Dim strPath As String
With objDir
.Path = strDir
lngCount = .ListCount
For i = 0 To lngCount - 1
.Path = strDir
strPath = .List(i) ''取得当前子目录
Call AddItemToList(strPath, List1) ''添加到ListBox中
Call ShowFloder(strPath, objDir) ''递归寻找
Next
End With
End Sub
''加载数据到ListBox
Private Sub AddItemToList(ByVal strText As String, ByRef objList As Object)
objList.AddItem strText
End Sub
Private Sub Command1_Click()
Call ShowFloder("c:\test", Dir1)
MsgBox List1.ListCount
End Sub
lxcc
2003-09-25
打赏
举报
回复
速度慢!
最好改改初始目录
lxcc
2003-09-25
打赏
举报
回复
Public Sub ShowFloder(strDir As String, objDir As Object)
On Error Resume Next
Dim lngCount As Long
Dim i As Long
Dim strPath As String
With objDir
.Path = strDir
lngCount = .ListCount
For i = 0 To lngCount - 1
.Path = strDir
strPath = .List(i) ''取得当前子目录
Call AddItemToList(strPath, List1) ''添加到ListBox中
Call ShowFloder(strPath, objDir) ''递归寻找
Next
End With
End Sub
''加载数据到ListBox
Private Sub AddItemToList(ByVal strText As String, ByRef objList As Object)
objList.AddItem strText
End Sub
Private Sub Command1_Click()
Call ShowFloder("c:\", Dir1)
MsgBox List1.ListCount
End Sub
wx05
2003-09-25
打赏
举报
回复
用递归调用一下
xiaoyi1979
2003-09-25
打赏
举报
回复
你这个程序只能遍历一层,我要遍历所有层!
包括文件夹的子文件夹
射天狼
2003-09-25
打赏
举报
回复
Option Explicit
Private Sub Command1_Click()
'在窗口中添加一个DirListBox控件
Dim i As Long
Dir1.Path = "C:\"
For i = 0 To Dir1.ListCount - 1
MsgBox Dir1.List(i)
Next
End Sub
c++
遍历
文件
夹
及其子
文件
夹
所有
文件
并输出
文件
路径和
文件
内容
在window下,使用c++
遍历
文件
夹
及其子
文件
夹
所有
文件
并输出
文件
路径和
文件
内容。网上的资源大多都只是
遍历
文件
夹
,但是我需要打印出
文件
内容,所以自己弄了两天,这就是我的成果(*^__^*) ……
VB
遍历
读取
文件
夹
中的所有JPG图片
文件
.rar
VB
遍历
读取
文件
夹
中的所有JPG图片
文件
,程序运行后,会直接
列出
目录中所有的JPG
文件
,也就是不读取其它格式的
文件
,当点击列表中的图片
文件
时,右侧会预览显示该图片,在此基础上您可实现一款简单的图片浏览器,如编译运行截图所示的样子。
VB 代码
遍历
文件
夹
所有
文件
,速度超快
纯代码查找
文件
夹
下所有
文件
,包含子
文件
夹
(MFC)
遍历
文件
夹
下的
文件
(包括子
文件
夹
)
主要解决:
文件
夹
下有好多个子
文件
夹
,并且这些子
文件
夹
只有很少的
文件
,防止操作上的麻烦,我写了这个简单的程序,可以
列出
你设定的根目录下的所有的
文件
(没有
文件
夹
的名字),双击即可打开。
VB6.0通用选择路径并
遍历
文件
夹
及子
文件
夹
.txt
VB6.0通用
遍历
所选
文件
夹
及其多重子
文件
夹
操作,直接使用Command按钮过程可以操作,无需其他额外控件。新建一个窗体,添加一个Command1按钮,添加一个listbox控件,名称为list1,打开一个Excel空白
文件
(如不需要请注释相关代码)。把本
文件
代码复制粘贴进去,单击按钮即可弹窗提示选择
文件
夹
。
VB基础类
7,789
社区成员
197,583
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章