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

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