易语言遍历某个文件下的所有TXT文件,然后把遍历出来的这些文件都删除掉 30
1个回答
展开全部
.版本 2
.支持库 shell
.子程序 __启动窗口_创建完毕
.局部变量 文件名, 文本型
.局部变量 文件, 文本型, , "0"
.局部变量 目录, 文本型
.局部变量 计次, 整数型
编辑框1.是否允许多行 = 真
编辑框1.滚动条 = 2
目录 = 浏览文件夹 (“请选择目录!”, )
目录 = 目录 + “\”
文件名 = 寻找文件 (“*.txt”, )
.判断循环首 (文件名 ≠ “”)
编辑框1.加入文本 (文件名, #换行符)
加入成员 (文件, 文件名)
文件名 = 寻找文件 (, )
.判断循环尾 ()
.如果真 (信息框 (“是否删除这些文件?”, #是否钮, ) = #是钮)
.计次循环首 (取数组成员数 (文件), 计次)
删除文件 (目录 + 文件 [计次])
.计次循环尾 ()
.如果真结束
结束 ()
.支持库 shell
.子程序 __启动窗口_创建完毕
.局部变量 文件名, 文本型
.局部变量 文件, 文本型, , "0"
.局部变量 目录, 文本型
.局部变量 计次, 整数型
编辑框1.是否允许多行 = 真
编辑框1.滚动条 = 2
目录 = 浏览文件夹 (“请选择目录!”, )
目录 = 目录 + “\”
文件名 = 寻找文件 (“*.txt”, )
.判断循环首 (文件名 ≠ “”)
编辑框1.加入文本 (文件名, #换行符)
加入成员 (文件, 文件名)
文件名 = 寻找文件 (, )
.判断循环尾 ()
.如果真 (信息框 (“是否删除这些文件?”, #是否钮, ) = #是钮)
.计次循环首 (取数组成员数 (文件), 计次)
删除文件 (目录 + 文件 [计次])
.计次循环尾 ()
.如果真结束
结束 ()
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询