硬盘篇历找文件夹工具的例子,检测目录是否存在

易语言 2020-07-04 16:15:16

驱动器列表 = 取驱动器列表 (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, “提示”, )