如何获得D盘下的所有文件夹和文件的名称？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何获得D盘下的所有文件夹和文件的名称？

共有2634人关注过本帖树形打印复制链接主题：如何获得D盘下的所有文件夹和文件的名称？

kolen

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：677 积分：6222 威望：0 精华：0 注册：2012/1/20 17:53:00

如何获得D盘下的所有文件夹和文件的名称？ 发帖心情

Post By：2015/12/22 21:37:00 [显示全部帖子]

问题1：如何获得D盘下的:文件的名称？

方法一：

For Each File As String In FileSys.GetFiles("C:\")
Output.Show(File)
Next

方法二（如果要排序）：

Dim ls() As String = System.IO.EnumerateFiles("d:\")

Array.Sort(ls)

For Each File As String In ls

Output.Show(File)

问题2：如何获得D盘下的所有文件夹和文件名称？

问题3：如何获得D盘下所有的文件夹和文件名称(包括文件夹下的子文件夹和子文件)?

问题2或3请老师们帮我一下，谢谢！

kolen

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：677 积分：6222 威望：0 精华：0 注册：2012/1/20 17:53:00

Post By：2015/12/22 21:43:00 [显示全部帖子]

好的，学习下，谢谢老师，辛苦了。

kolen

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：677 积分：6222 威望：0 精华：0 注册：2012/1/20 17:53:00

Post By：2015/12/22 21:53:00 [显示全部帖子]

要报错的好像，这个文件

kolen

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：677 积分：6222 威望：0 精华：0 注册：2012/1/20 17:53:00

Post By：2015/12/22 21:58:00 [显示全部帖子]

窗口与控件事件

窗口1_Button1_Click

'Functions.Execute("递归", "d:\helen_workspace\codefans.net")

Functions.Execute("递归", "d:\") ‘ 这里我改成了我的目录，还是报错的。

自定义函数

递归

Dim path As String = args(0)

For Each file As String In FileSys.GetFiles(path)

Forms("窗口1").Controls("TextBox1").Text &= vbcrlf & file & vbcrlf

For Each p As String In FileSys.GetDirectories(path)

Functions.Execute("递归", p)

全局代码

菜单事件

kolen

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：677 积分：6222 威望：0 精华：0 注册：2012/1/20 17:53:00

Post By：2015/12/22 22:07:00 [显示全部帖子]

此主题相关图片如下：qq截图20151222220426.png

是我的D盘里有个d:\$RECYCLE.BIN也当文件夹出来了，然后就报错，程序一直空白运行，滚动条一直变短，程序失去响应。最后用任务管理器关闭程序。

[此贴子已经被作者于2015/12/22 22:08:45编辑过]

kolen

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：677 积分：6222 威望：0 精华：0 注册：2012/1/20 17:53:00

Post By：2015/12/22 22:16:00 [显示全部帖子]

窗口1_Button1_Click

Functions.Execute("递归", "d:\")

自定义函数

递归

Dim path As String = args(0)

For Each file As String In FileSys.GetFiles(path)

Forms("窗口1").Controls("TextBox1").Text &= vbcrlf & file & vbcrlf

For Each p As String In FileSys.GetDirectories(path)

Functions.Execute("递归", p)

写在这个内部函数里怎么写呢？

kolen

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：677 积分：6222 威望：0 精华：0 注册：2012/1/20 17:53:00

Post By：2015/12/22 22:35:00 [显示全部帖子]

大红袍老师，我只有看狐表帮助文件的经验，狐表意外的编程基础没有的，从狐表一步开始编程的，不好意思，这么简单的都不会，可能让您见笑了图片点击可在新窗口打开查看

。8楼这个套不进去呀

kolen

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：677 积分：6222 威望：0 精华：0 注册：2012/1/20 17:53:00

Post By：2015/12/22 23:16:00 [显示全部帖子]

谢谢大红袍老师了，我也想明白了。测试了一下，这个$RECYCLE.BIN特殊文件是在GetDirectories这里出现的，和文件夹差不多的。所以直接用字符串判断一下，排除就好了。隐藏文件也把它筛选来。测试可行了。今天对递归重新复习了。谢谢了！

**********************************

窗口1_Button1_Click

Functions.Execute("递归", "F:\")

自定义函数

递归

Dim path As String = args(0)

For Each file As String In FileSys.GetFiles(path)

' Dim ifo As new FileInfo(file)

' If ifo.Hidden = False Then '如果文件不是隐藏属性

Forms("窗口1").Controls("TextBox1").Text &= vbcrlf & file & vbcrlf

' End If

For Each p As String In FileSys.GetDirectories(path)

If p.Contains("$") = False Then '排除特殊的文件，如：$RECYCLE.BIN

Forms("窗口1").Controls("TextBox1").Text &= vbcrlf & p & vbcrlf

Functions.Execute("递归", p)

End If

全局代码

下一主题 >> << 上一主题

主题：如何获得D盘下的所有文件夹和文件的名称？