[求助] 搜索指定文件夹中的文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 搜索指定文件夹中的文件

共有3528人关注过本帖树形打印复制链接主题：[求助] 搜索指定文件夹中的文件

sanny

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：795 积分：5880 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2019/3/2 18:02:00 [只看该作者]

谢谢版主，不过你的太长了，我优化了一下。

但是有一个问题，你的代码，还是以下代码，只能找到 D:\administrator\Desktop\test\PDF 这个下面子目录，再直去，就不能查找了。麻烦再帮忙看一下。

Dim t As Table = Tables("找找")
For Each r As Row In t.Rows
    For Each Files As String In FileSys.GetDirectories("D:\administrator\Desktop\test\PDF")
        For Each File As String In FileSys.GetFiles(Files)
            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
Next

msgbox("完成")

sanny

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：795 积分：5880 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2019/3/2 18:03:00 [只看该作者]

附上实例，谢谢。

sanny

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：795 积分：5880 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2019/3/2 18:03:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:test.rar

有点甜

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/3 10:31:00 [只看该作者]

获取子文件夹，需要递归，参考

下载信息 [文件大小：292.0 KB 下载次数：5]
点击浏览该文件:文件递归.table

sanny

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：795 积分：5880 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2019/3/3 15:02:00 [只看该作者]

版主，我现在用的是开发版，打不开.table文件了，能帮忙把代码列出来吗？谢谢。

有点甜

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/3 16:23:00 [只看该作者]

以下是引用sanny在2019/3/3 15:02:00的发言：

版主，我现在用的是开发版，打不开.table文件了，能帮忙把代码列出来吗？谢谢。

在下载开发版的地方，下载一个【商业版】，安装，即可打开。

sanny

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：795 积分：5880 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2019/3/3 16:45:00 [只看该作者]

版主，这里只有这个窗口有什么用呢？请说明一下。

有点甜

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/3 16:47:00 [只看该作者]

以下是引用sanny在2019/3/3 16:45:00的发言：
版主，这里只有这个窗口有什么用呢？请说明一下。

看懂里面的功能和代码，学会如何递归获取所有文件。

sanny

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：795 积分：5880 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2019/3/3 16:54:00 [只看该作者]

版主，它只有这一段代码，不解

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

该如何修改我的呢？

msgbox("完成")

有点甜

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/3 22:19:00 [只看该作者]

改成

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 Files As String In ls
        For Each File As String In FileSys.GetFiles(Files)
            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
Next

msgbox("完成")

下一主题 >> << 上一主题

总数 24 上一页 1 2 3 下一页

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