重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
按时间搜索文件代码
站在用户的角度思考问题,与客户深入沟通,找到凉州网站设计与凉州网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:做网站、成都网站建设、企业官网、英文网站、手机端网站、网站推广、申请域名、网页空间、企业邮箱。业务覆盖凉州地区。
.版本 2 .支持库 iext .程序集 窗口程序集1 .子程序 _按钮_搜索_被单击 文件搜索 (“C:”, “*.*”) .子程序 文件搜索 .参数 欲寻找的目录, 文本型, , 如:C:,表示C盘,记得C字后面两点一定要写 .参数 欲寻找的文件名, 文本型, , 如果寻找全部文件可以填入*.*或*.txt只找txt文件 .局部变量 局部_子目录, 文本型 .局部变量 局部_文件名, 文本型 .局部变量 局部_文件时间, 日期时间型 .局部变量 局部_项目索引, 整数型 .如果真 (取文本右边 (欲寻找的目录, 1) ≠ “\”) 欲寻找的目录 = 欲寻找的目录 + “\” .如果真结束 局部_文件名 = 寻找文件 (欲寻找的目录 + 欲寻找的文件名, ) .判断循环首 (局部_文件名 ≠ “”) 局部_文件时间 = 取文件时间 (欲寻找的目录 + 局部_文件名) .如果真 (局部_文件时间 > 日期框_起始.今天 且 局部_文件时间 < 日期框_结束.今天) 局部_项目索引 = 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (局部_项目索引, 0, 欲寻找的目录 + 局部_文件名) 超级列表框1.置标题 (局部_项目索引, 1, 到文本 (局部_文件时间)) .如果真结束 处理事件 () 局部_文件名 = 寻找文件 (, ) .判断循环尾 () 局部_子目录 = 寻找文件 (欲寻找的目录 + “*.*”, #子目录) .判断循环首 (局部_子目录 ≠ “”) .如果真 (取文本左边 (局部_子目录, 1) ≠ “.”) 处理事件 () 文件搜索 (欲寻找的目录 + 局部_子目录 + “\”, 欲寻找的文件名) .如果真结束 局部_子目录 = 寻找文件 (, #子目录) .判断循环尾 ()
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对创新互联的支持。如果你想了解更多相关内容请查看下面相关链接