- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何获得D盘下的所有文件夹和文件的名称？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79014)
-- 发布时间：2015/12/22 21:37:00
-- 如何获得D盘下的所有文件夹和文件的名称？
问题1：如何获得D盘下的:文件的名称？
方法一：
For Each File As String In FileSys.GetFiles("C:\\")
Output.Show(File)
Next
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)
Next
问题2：如何获得D盘下的所有文件夹和文件名称？
问题3：如何获得D盘下所有的文件夹和文件名称(包括文件夹下的子文件夹和子文件)?
问题2或3请老师们帮我一下，谢谢！
-- 发布时间：2015/12/22 21:42:00
--
参考
| 载信息 [文件大小：292.0 KB 下载次数：84] | |
 点击浏览该文件:文件递归.table |
-- 发布时间：2015/12/22 21:43:00
--
好的，学习下，谢谢老师，辛苦了。
-- 发布时间：2015/12/22 21:53:00
--
要报错的好像，这个文件
-- 发布时间：2015/12/22 21:54:00
--
好好看代码，路径改成自己的。
-- 发布时间：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
Next
For Each p As String In FileSys.GetDirectories(path)
Functions.Execute("递归", p)
Next
全局代码
菜单事件
-- 发布时间：2015/12/22 21:59:00
--
报什么错？
-- 发布时间：2015/12/22 22:07:00
--
处理一下特殊文件
For Each file As String In FileSys.GetFiles(path)
Dim ifo As new FileInfo(file)
If ifo.Hidden = False Then
End If
Next
-- 发布时间：2015/12/22 22:07:00
--
此主题相关图片如下：qq截图20151222220426.png
是我的D盘里有个d:\\$RECYCLE.BIN也当文件夹出来了，然后就报错，程序一直空白运行，滚动条一直变短，程序失去响应。最后用任务管理器关闭程序。
[此贴子已经被作者于2015/12/22 22:08:45编辑过]
-- 发布时间：2015/12/22 22:07:00
--
看8楼