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

版主，窗口中一个订单表A, 表中有订单号 ，如A1,A2,A3.. 每个订单中包含多个产品，比如

 

订单号   产品名称

A1          AD

A1          AB

A2          AH

A2          AZ

 

如何根据表中的产品名称找到  C盘中所有以 产品名称命名的 PDF文件并复制到批定的文件中，这个文件夹以订单号来命名，每个订单号包含相应的PDF.

 

 

Dim t As Table = Tables("表A")
For Each r As Row In t.Rows
    For Each file As String In FileSys.GetFiles("C:\")
        If file.EndsWith(".pdf") Then
            If file.EndsWith(r("产品名称") & ".pdf") Then
                FileSys.CopyFile(file, "d:\" & r("订单号") & "\" & r("产品名称") & ".pdf", True)
            End If
        End If
    Next
Next

版主， 有个问题我的订单号是这样的 MYPL-18/05/03-00029 ，当生成文件夹时，生成MYPL-18目录下再包含目录50，里面再包含了目录03-00029。因为不支持/

 

如何让它生成 MYPL-18-05-03-00029 一个目录呢 ？

FileSys.CopyFile(file, "d:\" & r("订单号").replace("/","-") & "\" & r("产品名称") & ".pdf", True)

版主，谢谢。另外还有碰到两个问题

 

1.  设定C:\PDF后，只能在这个根目录下查找，如果这个PDF目录中还有很多目录，子目录，可以设定查找PDF下所有所目录，文件吗？

 

2. 只要拷贝成工，就 把“找到”定入表A 的列名“存在”，如果没有，就写“没有找到”， 这个没有找到用红色字体，这样可以吗？

 

麻烦了。

1、递归遍历：

版主，我改了下，也不对。能帮忙改一下吗？

 

Dim t As Table = Tables("找找")
For Each r As Row In t.Rows

       For  Each file  As  String In FileSys.GetDirectories("z:\")

        If file.EndsWith(".pdf") Then
            If file.EndsWith(r("FshortNumber") & ".pdf") Then
               ' FileSys.CopyFile(file, "d:\" & r("FbillNo") & "\" & r("FshortNumber") & ".pdf", True)
                FileSys.CopyFile(file, "D:\administrator\Desktop\Foxtable\查图纸工具\管理项目1\" & r("FbillNo").replace("/","-") & "\" & r("FshortNumber") & ".pdf", True)
            End If
        End If
    Next
Next

 

代码有什么问题，运行有什么错误？

只能找在z:根目录中的文件，z盘中还有其它目录所需查找，找到后把找到写入 表A 列名“找找”