易语言操作硬盘txt扫描删除

本源码主要内容就是对硬盘里的txt文档文件进行扫描并删除的操作，下面是所有代码：

子程序 遍历目录, , , 输出指定目录下的所有文件，包括子目录
.参数 参目录, 文本型, , 不带最后的“\”
.局部变量 文件名, 文本型
.局部变量 目录数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 文件类型, 整数型

.如果真 (信息框 (“即将遍历指定目录并删除所有TXT文件!是否继续?”, 1, ) ≠ 0)
  返回 ()
.如果真结束

文件类型 ＝ 位或 (#存档文件, #只读文件, #系统文件, #隐藏文件, #子目录)
文件名 ＝ 寻找文件 (选择 (取文本右边 (参目录, 1) ≠ “\”, 参目录 ＋ “\”, 参目录) ＋ “*.*”, 文件类型)
.如果真 (文件名 ＝ “”)
  返回 () ' 设定终止条件
.如果真结束

.循环判断首 ()
  .如果 (位与 (取文件属性 (参目录 ＋ “\” ＋ 文件名), #子目录) ≠ 0)
    ' 注意这里不能直接遍历，要先存入数组，
    ' 否则就是开启了一个新的寻找文件的过程，
    ' 导致无法列正确的文件
    加入成员 (目录数组, 文件名) ' 把目录先存入数组中
  .否则
    .如果真 (到小写 (取文本右边 (文件名, 4)) ＝ “.txt”)
      删除文件 (参目录 ＋ “\” ＋ 文件名)
    .如果真结束
    ' 输出调试文本 (参目录 ＋ “\” ＋ 文件名) ' 文件名则输出
  .如果结束
  ' 寻找下一个
  文件名 ＝ 寻找文件 (, 文件类型)
.循环判断尾 (文件名 ≠ “”)

.计次循环首 (取数组成员数 (目录数组), i)
  .如果真 (目录数组 [i] ≠ “.” 且 目录数组 [i] ≠ “..”)
    ' 不是当前目录和父目录才进行扫描
    遍历目录 (参目录 ＋ “\” ＋ 目录数组 [i]) ' 递归调用子程序本身
  .如果真结束

.计次循环尾 ()

感谢大家对我们的支持，大家可以测试下代码内容。

赞 (0)

相关推荐

  • 易语言彻底删除指定的文件

    易语言彻底删除指定的文件

    删除文件命令 英文命令:kill 操作系统支持:Windows.Linux     所属类别:磁盘操作 成功返回真,失败返回假. 语法:  逻辑型  删除文件 (欲删除的文件名) 例程 说明 打开通用对话框1,选定一个文件,会弹出一个确认取消钮信息框,如果点击确认,则刚才选择的文件被删除,并弹出信息框提示是否删除成功. 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查看下面相关链接

  • 易语言删除系统临时文件代码实操

    以下我们给大家分享的是易语言删除系统临时文件的一些实例代码,以及逻辑关系,来看下: JY模块里的 目录_取特定目录 () 可以取到IE临时文件的文件夹 删除临时文件 (#接口常量.系统临时文件) 删除临时文件 (#接口常量.IE临时文件) 删除临时文件 (#接口常量.回收站) 删除临时文件 (#接口常量.存根文件) 这一条可以清除网站存根文件,配合系统临时和IE临时彻底清除 清除历史记录 (#接口常量.浏览网址历史记录) 清除历史记录 (#接口常量.浏览器历史地址记录) 清除历史记录 (#接口常

  • 易语言删除注册项工具

    易语言删除注册项工具

    删除注册项 .版本 2 .程序集 窗口程序集1 .子程序 _按钮_删除注册项_被单击 删除注册项 (#本地机器, "software\microsoft\windows\CurrentVersion\Run\kiss770.cn") 删除注册项 (4, "SOFTWARE\360Safe\safemon\ExecAccess") 删除注册项 (4, "SOFTWARE\360Safe\safemon\MonAccess") 删除注册项 (4, &

  • 易语言删除数组重复成员的代码

    易语言删除数组重复成员的代码

    删除数组重复成员的代码 .版本 2 .支持库 spec .程序集 窗口程序集1 .程序集变量 数组, 整数型, , "0" .子程序 __启动窗口_创建完毕 置随机数种子 () .计次循环首 (10, ) 加入成员 (数组, 取随机数 (1, 5)) .计次循环尾 () 调试输出 (数组) .子程序 _去重按钮_被单击 .局部变量 计次1, 整数型 .局部变量 计次2, 整数型 .计次循环首 (取数组成员数 (数组), 计次1) .如果真 (计次1 > 取数组成员数 (数组))

  • 易语言删除组合框列表中所有项目的方法

    易语言删除组合框列表中所有项目的方法

    清空方法 英文命令:zap 所属对象:组合框 语法:  无返回值  组合框．清空 () 删除组合框列表部分中的所有项目. 例程: 说明: 清除组合框的所有项目. 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查看下面相关链接

  • 易语言删除组合框中指定项目的方法

    易语言删除组合框中指定项目的方法

    删除项目方法 英文命令:DeleteString 所属对象:组合框 删除组合框列表部分指定位置处的项目.成功返回真,失败返回假. 语法:  逻辑型  组合框．删除项目 (项目索引) 例程: 说明: 删除组合框中的指定项目. 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查看下面相关链接

  • 易语言删除成员命令使用讲解

    易语言删除成员命令使用讲解

    删除成员命令 英文命令:RemoveElement 所属类别:数组操作 删除指定数组变量中的成员,并通过重新定义数组维数自动减少其成员数目.数组变量如为多维数组,删除完毕后将被转换为单维数组.返回所实际删除的成员数目. 语法:  整数型  删除成员(欲删除成员的数组变量,欲删除的位置,［欲删除的成员数目］) 例程: 说明: 删除数组里的第二个成员.被删除成员以后的其它成员的位置依次向前进一位. 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价

  • 易语言删除文本中的全部空格功能

    易语言删除文本中的全部空格功能

    删全部空命令 英文命令:TrimAll 操作系统支持:Windows.Linux    所属类别:文本操作 返回一个文本,其中包含被删除了所有全角或半角空格的指定文本. 语法:  文本型  删全部空 (欲删除空格的文本) 例程 说明 通过"删全部空"命令将一段文本中的空格全部删除. 例如:" 这里 既有全角 空格,     也有半角 空格.    "删除全部空格后的结果是:"这里既有全角空格,也有半角空格.". 运行结果: 总结 以上就是这篇文章

  • 易语言彻底删除文件夹与文件夹下所有文件

    易语言彻底删除文件夹与文件夹下所有文件

    删除目录命令 英文命令:RmDir 操作系统支持:Windows.Linux     所属类别:磁盘操作 删除一个存在的目录.成功返回真,失败返回假. 语法:  逻辑型  删除目录 (欲删除的目录名称) 例程 说明 使用浏览文件夹选择要删除的目录,并将目录名存放在"欲删除的目录"变量中,然后弹出信息框询问是否删除,如果点击"是钮",则执行"删除目录"命令删除选中的文件夹,并用信息框显示是否删除成功. 运行结果: 总结 以上就是这篇文章的全部内容了

  • 易语言实现QQ空间留言批量删除的代码

    易语言实现QQ空间留言批量删除的代码

    全局变量表 .版本 2 .全局变量 Uin_全, 文本型 .全局变量 Cookie_全, 文本型 QQ快捷启动的代码 .版本 2 .支持库 HtmlView .支持库 iext .程序集 窗口程序集_快速 .子程序 _超文本浏览框1_跳转完毕 .局部变量 返回文本, 文本型 .局部变量 文本分割, 文本型, , "0" .局部变量 二次分割, 文本型, , "0" .局部变量 i, 整数型 .局部变量 s, 整数型 .局部变量 Cookie, 文本型 .局部变量 U

  • 易语言删除文件目录的方法

    易语言删除文件目录的方法

    计算机应用软件的诞生,就是为了方便用户的日常工作和生活需求,使用软件操作计算机完成一系列的工作流程.那么,你知道易语言如何删除目录吗?今天,我们的小编就带大家一起学习. 易语言如何删除目录: 易语言如何删除目录?为了配合此次程序的测试,我们事先创建一个名叫"baidujingyan"的文件夹作为示例,大家可以自行创建自定义的文件夹.如图: 然后,测试文件夹创建完毕之后,打开"易语言"主程序,新建"Windows窗口程序"并点击确定按钮,进入&qu

随机推荐