如何使用多线程全盘查找一个名叫"备份"的文件夹

yiwai2012

投票投票 领金币

aiso

你需要一个叫《Everything》的软件

凉冰粉

你需要一个叫《Everything》的软件

xiaoliamg

我来看看学习一下

凌哥

https://gitee.com/a1027663760/EC ... E6%96%87%E4%BB%B6.e

pimixixi

Suky 发表于 2024-11-6 22:10
先搜索所有盘符
再按盘符数量分线程启动搜索
再按根目录文件数量启动搜索

.版本 2
.支持库 EThread
.程序集 窗口程序集1

' 线程函数，用于在指定磁盘查找和处理“备份”文件夹
.子程序 查找备份文件夹线程, 逻辑型
    局部变量 当前目录, 文本型
    局部变量 文件夹名, 文本型
    局部变量 子文件夹数组, 文本型,, "0"
    局部变量 子文件夹索引, 整数型
    局部变量 文件数组, 文本型,, "0"
    局部变量 文件索引, 整数型
    当前目录 = 线程参数
    改变目录 (当前目录)
    文件夹名 = 取文本右边 (取当前目录 (), 取文本长度 (取当前目录 ()) - 倒找文本 (取当前目录 (), “\”,, 假))
    ' 找到“备份”文件夹
    如果真 (文件夹名 = “备份”)
      .如果真 (寻找文件 (“采购计划.txt”, ) = “”)
            删除目录 (当前目录, 真)
      .如果真结束
    如果真结束
    ' 递归查找子文件夹
    子文件夹数组 = 取目录下所有子目录 (当前目录)
    子文件夹索引 = 0
    循环判断首 ()
        查找备份文件夹线程 (当前目录 + “\” + 子文件夹数组[子文件夹索引])
        子文件夹索引 = 子文件夹索引 + 1
    循环判断尾 (子文件夹索引 < 取数组成员数 (子文件夹数组))
    返回 (假)
.子程序 _按钮1_被单击
    局部变量 磁盘数组, 文本型,, "0"
    局部变量 线程数组, 线程对象,, "0"
    局部变量 磁盘索引, 整数型
    磁盘数组 = 取磁盘列表 ()
    磁盘索引 = 0
    循环判断首 ()
        加入成员 (线程数组, 创建线程 (&查找备份文件夹线程, 磁盘数组[磁盘索引] + “:\”))
        磁盘索引 = 磁盘Index + 1
    循环判断尾 (磁盘Index < 取数组成员数 (磁盘数组))
    磁盘Index = 0
    循环判断首 ()
        线程数组[磁盘Index].启动 ()
        磁盘Index = 磁盘Index + 1
    循环判断尾 (磁盘Index < 取数组成员数 (线程Array))

pimixixi

pimixixi 发表于 2024-11-6 22:31
.版本 2

.支持库 EThread

没办法呀

pimixixi

Suky 发表于 2024-11-6 22:10
先搜索所有盘符
再按盘符数量分线程启动搜索
再按根目录文件数量启动搜索

.版本 2

.支持库 EThread

.程序集 窗口程序集1

.子程序 _按钮1_被单击
    局部变量 线程数组, 线程对象,, "0"
    局部变量 磁盘数组, 文本型,, "0"
    局部变量 磁盘索引, 整数型

    磁盘数组 = 取磁盘列表 ()
    磁盘索引 = 0
    循环判断首 ()
        加入成员 (线程数组, 创建线程 (&搜索磁盘线程, 磁盘数组 [磁盘_index]))
        磁盘_index = 磁盘_index + 1
    循环判断尾 (磁盘_index < 取数组成员数 (磁盘数组))

   .计次循环首 (取数组成员数 (线程数组), )
        线程数组 [索引].启动 ()
   .计次循环尾 ()
   .判断循环首 (真)
        局部变量 找到标志, 逻辑型
        找到标志 = 假
       .计次循环首 (取数组成员数 (线程数组), )
            如果真 (线程数组 [索引].取返回值 ())
                找到标志 = 真
                跳出循环 ()
            如果真结束
       .计次循环尾 ()
        如果真 (找到标志)
            信息框 (“找到文件夹 备份”, 0, )
           .计次循环首 (取数组成员数 (线程_array), )
                线程_array [索引].销毁 ()
           .计次循环尾 ()
            跳出循环 ()
        如果真结束
   .判断循环尾 ()

Suky

先搜索所有盘符
再按盘符数量分线程启动搜索
再按根目录文件数量启动搜索
……