Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何选择一个文件夹，并遍历该目录下的所有子目录,读取txt文件的内容


  共有1687人关注过本帖树形打印复制链接

主题：如何选择一个文件夹，并遍历该目录下的所有子目录,读取txt文件的内容
帅哥哟，离线，有人找我吗？
sloyy
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00 		如何选择一个文件夹，并遍历该目录下的所有子目录,读取txt文件的内容  发帖心情 Post By：2024/3/11 22:43:00 [只看该作者]

一个文件夹,下面包含很多子目录,想遍历这个文件夹,读取所有子目录内的txt文件,该怎么做?
 回到顶部
帅哥哟，离线，有人找我吗？
pyh6918
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1135 积分：11099 威望：0 精华：2 注册：2008/9/1 10:45:00 		  发帖心情 Post By：2024/3/11 23:02:00 [只看该作者]

帮助文件搜：FileSys

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/11 23:08:00 [只看该作者]

参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=186470&skin=0

 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2024/3/12 12:52:00 [只看该作者]

封装成内部函数,拿去用吧
Dim lg As New List(Of String)
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
Dim path As String = args(0)
Dim ls = args(1)
For Each file As String In FileSys.GetFiles(path)
    If file.Contains(".txt") Then
        ls.add(file)
    End If
Next
For Each p As String In FileSys.GetDirectories(path) '循环调用自身代码
    Functions.Execute("文件递归", p, ls)
Next
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询