1个回答
展开全部
.版本 2
.子程序 寻找
.参数 目录, 文本型
.局部变量 文件名, 文本型
.局部变量 文本型数组, 文本型, , "0"
.局部变量 t, 整数型
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.如果真结束
文件名 = 寻找文件 (目录 + “*.mp3”, )
.判断循环首 (文件名 ≠ “”)
组合框1.加入项目 (目录 + 文件名, )
加入成员 (文本型数组, 目录 + 文件名)
输出调试文本 (目录 + 文件名)
文件名 = 寻找文件 (, )
.判断循环尾 ()
文件名 = 寻找文件 (目录 + “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
寻找 (目录 + 文件名)
.如果真结束
文件名 = 寻找文件 (, #子目录)
.判断循环尾 ()
枚举出文件夹 并在超级列表框里面插入表项 从上到下往下播放 很简单
不懂在追问
.子程序 寻找
.参数 目录, 文本型
.局部变量 文件名, 文本型
.局部变量 文本型数组, 文本型, , "0"
.局部变量 t, 整数型
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.如果真结束
文件名 = 寻找文件 (目录 + “*.mp3”, )
.判断循环首 (文件名 ≠ “”)
组合框1.加入项目 (目录 + 文件名, )
加入成员 (文本型数组, 目录 + 文件名)
输出调试文本 (目录 + 文件名)
文件名 = 寻找文件 (, )
.判断循环尾 ()
文件名 = 寻找文件 (目录 + “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
寻找 (目录 + 文件名)
.如果真结束
文件名 = 寻找文件 (, #子目录)
.判断循环尾 ()
枚举出文件夹 并在超级列表框里面插入表项 从上到下往下播放 很简单
不懂在追问
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询