如何不处理隐藏和系统文件？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下代码定义成函数，功能是提取给定目录的所有文件名称：

Dim path As String = args(0)

Dim box As object = args(1)

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

If box.value > "" Then

box.value &= vbcrlf & FileSys.GetName(file)

Else

box.value &= FileSys.GetName(file)

End If

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

Functions.Execute("递归", p, box)

——————————————————

我在一个窗口的按钮调用

Functions.Execute("递归", txt.value, e.Form.Controls("TextBox1"))

问题：可以正常提取目录下的所有文件名，但目录中隐藏的和系统文件也提出来了，我不需要这些隐藏的和系统的文件，如何解决？

主题：如何不处理隐藏和系统文件？