主题：[求助]内部函数

老师，能只显示文件名称不显示文件夹吗？

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

此主题相关图片如下：图像 2.png

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

谢谢老师

666666