简单硬盘遍历找文件夹例程源码

简单硬盘遍历找文件夹例程源码

@戒卜掉思恋

.版本 2
.支持库 eAPI
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 驱动器列表, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 数, 文本型, , "0"
.局部变量 j, 整数型
.局部变量 s文本, 文本型, , "0"
.局部变量 e, 整数型
.局部变量 s文u本, 文本型, , "0"

驱动器列表 ＝ 取驱动器列表 (1)
调试输出 (PathIsDirectoryA (“D:\KwSingMV”))  ' * “D:\KwSingMV”
.计次循环首 (取数组成员数 (驱动器列表), n)
    .如果真 (PathIsDirectoryA (驱动器列表 [n] ＋ “KwSingMV”))
        调试输出 (“在” ＋ 驱动器列表 [n] ＋ “中发现目录” ＋ 驱动器列表 [n] ＋ “KwSingMV”)
        加入成员 (数, 驱动器列表 [n] ＋ “KwSingMV”)
    .如果真结束

.计次循环尾 ()
.计次循环首 (取数组成员数 (数), j)
    .如果真 (PathIsDirectoryA (数 [j] ＋ “456”))
        调试输出 (“发现子目录” ＋ 数 [j] ＋ “456”)
        加入成员 (s文本, 数 [j] ＋ “456”)
    .如果真结束

.计次循环尾 ()
.计次循环首 (取数组成员数 (数), e)
    .如果真 (PathIsDirectoryA (数 [e] ＋ “567”))
        调试输出 (“发现子目录” ＋ 数 [e] ＋ “567”)
        加入成员 (s文u本, 数 [e] ＋ “567”)
    .如果真结束

.计次循环尾 ()
调试输出 (s文u本)
.如果真 (取数组成员数 (s文u本) ＝ 0)
    信息框 (“没有找到符合你要求的目录”, 64, “提示”, )
    返回 ()
.如果真结束
信息框 (“找到” ＋ 到文本 (取数组成员数 (s文u本)) ＋ “个符合要求的目录”, 64, “提示”, )