|
楼主 |
发表于 2017-2-22 17:46:52
|
显示全部楼层
陕西省宝鸡市
本帖最后由 wentian24 于 2017-2-22 17:48 编辑
今天认真学了子程序递归的使用,这个对新手来说确实很有难度,我用了很久才想明白其中道理,做出了视频中的文件浏览器,当然也进行小小的改进。这次的程序源码后面有我自己的心得注释,请各位大神指点交流。发现论坛可以直接上传源码,发出来试试效果。
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | |
列表框1. 清空 ()时间1 = 取现行时间 ()如果 (目录编辑框.内容 = “”)信息框 (“请输入要查询的目录”, 0, “提示”, )查找文件 (目录编辑框.内容 )列表框1. 加入项目 (“共查找到” + 到文本 (列表框1. 取项目数 ()) + “个文件,共耗时” + 到文本 (取时间间隔 (取现行时间 (), 时间1, #秒 )) + “秒”, )如果真 (取文本右边 (目录名, 1 ) ≠ “\”) 目录名 = 目录名 + “\”文件名 = 寻找文件 (目录名 + “*.*”, 1 + 2 + 4 + 16 + 32) 判断循环首 (文件名 ≠ “”) 如果真 (文件名 = “.” 或 文件名 = “..”) 文件名 = 寻找文件 (, 1 + 2 + 4 + 16 + 32 )到循环尾 ()如果真 (取文件属性 (目录名 + 文件名 ) = #子目录 )查找文件 (目录名 + 文件名 ) 文件名 = 寻找文件 (, 1 + 2 + 4 + 16 + 32 ) 到循环尾 ()列表框1. 加入项目 (目录名 + 文件名 + “ |时间:” + 到文本 (取文件时间 (目录名 + 文件名 )) + “ |大小:” + 到文本 (四舍五入 (取文件尺寸 (目录名 + 文件名 ) ÷ 1024, 1 )) + “KB”, )文件名 = 寻找文件 (, 1 + 2 + 4 + 16 + 32 ) 判断循环尾 ()
|
-
文件浏览器
|