文件名=寻找文件("d:\123\*.*",#子目录)
.判断循环首(文件名<>"")
如果真(文件名<>"." 且 文件名<>"..")
'到这一步了"d:\123\"+文件名,就是找到的路径,可以用递归来获取所有目录名和文件名
如果真完了.
文件名=寻找文件(,#子目录)'这里很重要,不能提供第一个参数了,否则文件索引又从1开始了,
.判断循环完了.
以上是寻找目录的完整代码,手动打滴,不能直接复制,
可以自己改下可以枚举盘的所有文件和文件夹,剩下的复制就随你便了.
追问我想请问下 递归是什么?
追答递归做为一种算法在程序设计语言中广泛应用。是指函数/过程/子程序在运行过程中直接或间接调用自身而产生的重入现象
比如下面的代码,直接执行 信息框(求递增值(100))
会出现消息 5050
.子程序 求递增值, 整数型
.参数 整数, 整数型
.如果真 (整数 = 0)
返回 (0)
.如果真结束
返回 (整数 + 求递增值 (整数 - 1))