主题：[求助] 搜索指定文件夹中的文件

版主，有错误

加上内部函数啊

http://www.foxtable.com/webhelp/scr/1486.htm

版主， 显示目录名称错误， 以下还需如何修改 ？

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

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

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

Dim ls As new List(Of String)
Functions.Execute("递归", "D:\administrator\Desktop\test\PDF", ls)
'msgbox(String.join("|", ls.ToArray))

Dim t As Table = Tables("找找")
For Each r As Row In t.Rows
    For Each File As String In ls
        If file.EndsWith(".pdf") Then
            If file.EndsWith(r("FshortNumber") & ".pdf") Then
                FileSys.CopyFile(file,"D:\administrator\Desktop\test\" & r("FbillNo").replace("/","-") & "\" & r("FshortNumber") & ".pdf", True)
            End If
        End If
    Next
Next

msgbox("完成")