.版本 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, “提示”, )