.版本 2 .支持库 iext .子程序 _按钮1_被单击 .局部变量 目录, 文本型 .局部变量 所有盘符, 字节集 .局部变量 盘符, 字节集, , "0" .局部变量 返回值, 整数型 .局部变量 索引, 整数型 编辑框2.内容 ＝ “” .如果真 (编辑框1.内容 ＝ “”) 信息框 (“请输入要查找的文件名（要包括后缀名）”, #错误图标, ) 返回 () .如果真结束 置等待鼠标 () 所有盘符 ＝ 取空白字节集 (256) 返回值 ＝ GetLogicalDriveStrings (256, 所有盘符) 所有盘符 ＝ 取字节集左边 (所有盘符, 返回值) 盘符 ＝ 分割字节集 (所有盘符, { 0 }, ) .计次循环首 (取数组成员数 (盘符), 索引) .如果真 (文件是否存在 (到文本 (盘符 [索引]) ＋ 编辑框1.内容)) 编辑框2.加入文本 (到文本 (盘符 [索引]) ＋ 编辑框1.内容) 状态条1.置文本 (0, “文件已找到！”) 跳出循环 () .如果真结束 列表 (到文本 (盘符 [索引]), 编辑框1.内容) .计次循环尾 () 恢复鼠标 () 找到 ＝ 假