易语言删除指定路径指定后缀文件

.版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 文件名, 文本型 .子程序 _按钮1_被单击 文件名 = 寻找文件 (编辑框1.内容 + “\*.” + 编辑框2.内容, ) 调试输出 (文件名) .如果 (文件名 = “”) 画板1.文本颜色 = #红色 画板1.滚动写行 (“所有txt文件已删完”) 画板1.文本颜色 = #白色 返回 () .否则 .如果结束 .如果 (删除文件 (编辑框1.内容 + “\” + 文件名) = 真) 画板1.滚动写行 (“删除成功: ” + 文件名) .判断循环首 (文件名 ≠ “”) 文件名 = 寻找文件 (, ) 调试输出 (文件名) .如果 (删除文件 (编辑框1.内容 + “\” + 文件名) = 真) 画板1.滚动写行 (“删除成功: ” + 文件名) .否则 .如果结束 .如果真 (文件名 = “”) 画板1.文本颜色 = #红色 画板1.滚动写行 (“所有” + 编辑框2.内容 + “文件已删完”) 画板1.文本颜色 = #白色 .如果真结束 .判断循环尾 () .否则 .如果结束 调试输出 (文件名) .子程序 _按钮3_被单击 画板1.清除 (, , , ) .子程序 _编辑框2_获得焦点 .如果 (编辑框2.文本颜色 = #灰色) 编辑框2.文本颜色 = #黑色 编辑框2.内容 = “” .否则 .如果结束 .子程序 _编辑框2_失去焦点 .如果 (编辑框2.内容 = “”) 编辑框2.文本颜色 = #灰色 编辑框2.内容 = “*为删除所有文件,后缀格式:txt,exe,zip等” .否则 .如果结束 .子程序 _编辑框1_获得焦点 编辑框1.文本颜色 = #黑色 .子程序 _标签3_鼠标左键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 编辑框2.文本颜色 = #黑色 编辑框2.内容 = “exe” .子程序 _标签4_鼠标左键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 编辑框2.文本颜色 = #黑色 编辑框2.内容 = “txt” .子程序 _标签5_鼠标左键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 编辑框2.文本颜色 = #黑色 编辑框2.内容 = “zip” .子程序 __启动窗口_创建完毕
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注