版本 2 支持库 eAPI 子程序 _按钮1_被单击 局部变量 磁盘, 文本型, , "0" 局部变量 I, 整数型 磁盘 = 取驱动器列表 (#接口常量硬盘驱动器) 计次循环首 (取数组成员数 (磁盘), I) 文件搜索 (磁盘 [I], 到文本 (编辑框1内容)) 计次循环尾 () 子程序 文件搜索 参数 目录, 文本型 参数 文件名, 文本型 局部变量 局部文件名, 文本型 局部变量 子目录, 文本型 局部变量 内容, 文本型 目录 = 目录 + “\” 处理事件 () 局部文件名 = 寻找文件 (目录 + “”, 39) 判断循环首 (局部文件名 ≠ “”) 如果真 (局部文件名 = 文件名) 运行 (目录 + 文件名, 假, ) 返回 () 如果真结束 局部文件名 = 寻找文件 (, ) 判断循环尾 () 子目录 = 寻找文件 (目录 + “”, 16) 判断循环首 (子目录 ≠ “”) 如果真 (子目录 ≠ “” 且 子目录 ≠ “”) 文件搜索 (目录 + 子目录, 文件名) 如果真结束 子目录 = 寻找文件 (, #子目录) 判断循环尾 ()
子程序 _按钮1_被单击 局部变量 磁盘, 文本型, , "0" 局部变量 I, 整数型
照抄都能抄错啊
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)