易语言运行其他软件!

易语言运行其他软件!,第1张

很久以前写的了 需要一个按钮一个编辑框
版本 2 支持库 eAPI 子程序 _按钮1_被单击 局部变量 磁盘, 文本型, , "0" 局部变量 I, 整数型 磁盘 = 取驱动器列表 (#接口常量硬盘驱动器) 计次循环首 (取数组成员数 (磁盘), I) 文件搜索 (磁盘 [I], 到文本 (编辑框1内容)) 计次循环尾 () 子程序 文件搜索 参数 目录, 文本型 参数 文件名, 文本型 局部变量 局部文件名, 文本型 局部变量 子目录, 文本型 局部变量 内容, 文本型 目录 = 目录 + “\” 处理事件 () 局部文件名 = 寻找文件 (目录 + “”, 39) 判断循环首 (局部文件名 ≠ “”) 如果真 (局部文件名 = 文件名) 运行 (目录 + 文件名, 假, ) 返回 () 如果真结束 局部文件名 = 寻找文件 (, ) 判断循环尾 () 子目录 = 寻找文件 (目录 + “”, 16) 判断循环首 (子目录 ≠ “”) 如果真 (子目录 ≠ “” 且 子目录 ≠ “”) 文件搜索 (目录 + 子目录, 文件名) 如果真结束 子目录 = 寻找文件 (, #子目录) 判断循环尾 ()
子程序 _按钮1_被单击 局部变量 磁盘, 文本型, , "0" 局部变量 I, 整数型
照抄都能抄错啊


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/zz/13040015.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-29
下一篇 2023-05-29

发表评论

登录后才能评论

评论列表(0条)

保存