主题：[求助]内部函数

1、递归，这样你就能得到所有的文件路径

 

内部函数 listfile

 

Dim pth As String = args(0)
Dim nms As List(of String) = args(1)
For Each fl As String In filesys.GetFiles(pth)
    nms.add(fl)
Next
For Each dr As String In FileSys.GetDirectories(pth)
    Functions.Execute("listfile",dr,nms)
Next

调用函数：
dim nms As New List(of string)
Functions.Execute("listfile","c:\data",nms)

改一下

 

Dim pth As String = args(0)
Dim nms As List(of String) = args(1)
For Each fl As String In filesys.GetFiles(pth)
    nms.add(fl)
Next
For Each dr As String In FileSys.GetDirectories(pth)
    Functions.Execute("listfile",dr, nms)
Next

你得到nms之后你要怎么处理？你要怎么显示你就引用nms这个集合

你要显示到哪里怎么显示？

 

for each s As string in nms

    msgbox(s)

next

汗，你到现在连基本代码都不会写。

 

 

For Each s As String In nms
    Forms("窗口1").Controls("TextBox1").Text = String.join(vbcrlf, nms.ToArray)
Next

Dim pth As String = args(0)
Dim nms As List(of String) = args(1)
For Each fl As String In filesys.GetFiles(pth)
    nms.add(fl)
Next
For Each dr As String In FileSys.GetDirectories(pth)

    nms.add(dr)
    Functions.Execute("listfile",dr,nms)
Next

If nms.count > 0 Then
    Dim path As String = FileSys.GetParentPath(nms(0))
    Dim str As String = ""
    For Each s As String In nms
        str &= s.replace(path, "") & vbcrlf
    Next
    Forms("窗口1").Controls("TextBox1").Text = str
End If

If nms.count > 0 Then
    Dim path As String = FileSys.GetParentPath(nms(0)) & "\"
    Dim str As String = ""
    For Each s As String In nms
        str &= s.replace(path, "") & vbcrlf
    Next
    Forms("窗口1").Controls("TextBox1").Text = str
End If