主题：文件递归问题

我的需求是：列出所有文件名，并不带后缀？

 

 

1、自定义函数：递归

Dim path As String = args(0)
Dim ls = args(1)

'For Each file As String In FileSys.GetFiles(path)
For Each file As String In FileSys.GetName(path)
'For Each file As String In io.Directory.GetFiles(path)
    ls.add(file)
Next

For Each p As String In FileSys.GetDirectories(path)
    Functions.Execute("递归", p, ls)
Next

 

2、执行下面代码：

Dim ls As new List(Of String)
Functions.Execute("递归", "d:\dd", ls)
msgbox(String.join("|", ls.ToArray))

 

 

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