易语言怎么打开随机的文件夹！

.版本 2
.支持库 spec
.支持库 shell

.子程序 打开随机文件
.参数 目录, 文本型
.局部变量 数组, 文本型, , "1"
.局部变量 文件名, 文本型
.局部变量 数组个数, 整数型
.局部变量 随机打开, 整数型

.如果 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.否则

.如果结束
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
加入成员 (数组, 文件名)
文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
数组个数 ＝ 取数组成员数 (数组)
调试输出 (数组)
调试输出 (数组个数)
置随机数种子 ()
随机打开 ＝ 取随机数 (1, 数组个数)
执行 (4, 目录 ＋ 数组 [随机打开], , , )

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/xv23x2fvjjj2xerjrx.html