[经验分享] tencent files路径获取,删除

[复制链接]
查看1001 | 回复16 | 2019-9-24 12:25:23 | 显示全部楼层 |阅读模式
345246737.jpg


tencent files路径获取,删除
下面是tencent files路径获取的易语言源码,想删除的话自己在加上删除命令即可


  
窗口程序集名保 留  保 留备 注
窗口程序集1   
变量名类 型数组备 注
找到逻辑型  

子程序名返回值类型公开备 注
__启动窗口_创建完毕  

子程序名返回值类型公开备 注
列表 ***寻找目录下的所有子目录**
参数名类 型参考可空数组备 注
路径文本型   
查找的文件文本型   如果模糊查找输入关键词即可
变量名类 型静态数组备 注
子目录文本型  
文件名文本型  
子目录 = 寻找文件 (路径 + “*.*”, #子目录 )
判断循环首 (子目录 ≠ “” 找到 = )
如果真 (取文本左边 (子目录, 1)“.”)
如果真 (文件是否存在 (路径 + 子目录 + “\” + 查找的文件))
编辑框2.加入文本 (路径 + 子目录 + “\” + 查找的文件)
找到 =   ' 本来用跳出循环(),nnd居然跳不出循环才用这招
到循环尾 ()
列表 (路径 + 子目录 + “\”, 编辑框1.内容)
状态条1.置文本 (0, 路径 + 子目录)
子目录 = 寻找文件 (, #子目录 )
判断循环尾 ()
如果真 (找到)
状态条1.置文本 (0, “文件已找到!”)
返回 ()
状态条1.置文本 (0, “没有找到文件!”)
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
目录文本型  
所有盘符字节集  
盘符字节集 0
返回值整数型  
索引整数型  
编辑框2.内容 = “”
如果真 (编辑框1.内容 = “”)
信息框 (“请输入要查找的文件名(要包括后缀名)”, #错误图标, )
返回 ()
置等待鼠标 ()
所有盘符 = 取空白字节集 (256)
返回值 = GetLogicalDriveStrings (256, 所有盘符)
所有盘符 = 取字节集左边 (所有盘符, 返回值)
盘符 = 分割字节集 (所有盘符, { 0 }, )
计次循环首 (取数组成员数 (盘符), 索引)
如果真 (文件是否存在 (到文本 (盘符 [索引]) + 编辑框1.内容))
编辑框2.加入文本 (到文本 (盘符 [索引]) + 编辑框1.内容)
状态条1.置文本 (0, “文件已找到!”)
跳出循环 ()
列表 (到文本 (盘符 [索引]), 编辑框1.内容)
计次循环尾 ()
恢复鼠标 ()
找到 = 假
子程序名返回值类型公开备 注
_按钮2_被单击  
结束 ()


i支持库列表   支持库注释   
iext扩展界面支持库一




tencent files路径获取,删除.rar (2.16 KB, 下载次数: 0)
回复

使用道具 举报

舀一瓢月色 | 2019-9-26 19:13:44 | 显示全部楼层
太棒了,找了好久
回复

使用道具 举报

潮流盛典 | 2019-9-30 18:21:19 | 显示全部楼层
哈哈哈哈哈哈哈哈,收了
回复

使用道具 举报

onedayone | 2019-10-2 00:51:41 | 显示全部楼层
不错不错,很好哦
回复

使用道具 举报

独爱长久 | 2019-10-5 20:07:16 | 显示全部楼层
论坛有你更精彩。。。
回复

使用道具 举报

zz257789 | 2019-10-7 05:38:04 | 显示全部楼层
谢谢分享,有你更精彩
回复

使用道具 举报

Pure陌路 | 2019-10-11 02:57:11 | 显示全部楼层
不错不错,,,,,,,,,,,顶了
回复

使用道具 举报

Memory浅光 | 2019-10-13 09:00:35 | 显示全部楼层
雁过留身,谢谢楼主
回复

使用道具 举报

OrdnAry平淡 | 2019-10-19 21:01:45 | 显示全部楼层
过来看看的
回复

使用道具 举报

Provoke | 2019-10-22 14:24:47 | 显示全部楼层
前排支持下分享
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则