.版本2.支持库spec.子程序文件搜索,文本型,公开,在指定目录下搜索文件.参数临时目录,文本型,,欲寻找的目录.参数列表框,列表框.局部变量临时文件名,文本型.局部变量临时子目录,文本型.局部变量临时内容,文本型.如果真(取文本右边(临时目录,1)≠“\\”)临时目录＝临时目录＋“\\”.如果真结束处理事件()临时文件名＝寻找文件(临时目录＋“*.*”,).判断循环首(临时文件名≠“”).如果真(临时文件名≠“.”)列表框.加入项目(临时目录＋临时文件名,).如果真结束临时文件名＝寻找文件(,).判断循环尾()临时子目录＝寻找文件(临时目录＋“*.*”,#子目录)调试输出(临时子目录).判断循环首(临时子目录≠“”).如果真(临时子目录≠“.”且临时子目录≠“..”)临时内容＝文件搜索(临时目录＋临时子目录,列表框).如果真(临时内容≠“”)返回(临时内容).如果真结束.如果真结束临时子目录＝寻找文件(,#子目录).判断循环尾()返回(“”)
|
