好友
阅读权限10
听众
最后登录1970-1-1
|
XX运行时YY文件无法替换顾结束进程XX
文件搜索后无法写入,求帮助。 错误(10044): 不能将“文本型”数据转换到“字节集”数据。
本人新手,附上源码
.版本 2
.支持库 EThread
.支持库 eAPI
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
启动线程 (&子程序1, , )
.子程序 子程序1
.局部变量 i, 整数型
.局部变量 驱动器, 文本型, , "0"
.局部变量 欲搜索文件, 文本型
.局部变量 返回参数, 文本型
欲搜索文件 = “NetSys.mdb”
驱动器 = 取驱动器列表 (#接口常量.硬盘驱动器)
.计次循环首 (取数组成员数 (驱动器), i)
寻找指定文件 (驱动器 , 欲搜索文件, 标签1)
.计次循环尾 ()
.子程序 寻找指定文件, 文本型
.参数 临时目录, 文本型, , 搜索目录
.参数 欲搜索文件, 文本型, , 欲寻找替换的文件名
.参数 标签, 标签, , 显示搜索路径的标签
.局部变量 变量_1, 文本型
.局部变量 变量_2, 文本型
.局部变量 变量_3, 文本型
.局部变量 逻辑变量, 逻辑型
逻辑变量 = 假
临时目录 = 临时目录 + “\”
处理事件 ()
变量_1 = 寻找文件 (临时目录 + “*.*”, 39)
.判断循环首 (变量_1 ≠ “”)
标签.标题 = 临时目录 + 变量_1
.如果真 (变量_1 = 欲搜索文件)
' ==================================================开始替换文件========
终止进程 (“NetAppSoft.exe”)
写到文件 (临时目录 + 欲搜索文件, #文件数据)
' ===================================================替换文件完成========
返回 (临时目录 + 欲搜索文件)
.如果真结束
.如果真 (逻辑变量)
返回 (“”)
.如果真结束
变量_1 = 寻找文件 (, )
.判断循环尾 ()
变量_2 = 寻找文件 (临时目录 + “*.*”, 16)
.判断循环首 (变量_2 ≠ “”)
.如果真 (变量_2 ≠ “.” 且 变量_2 ≠ “..”)
变量_3 = 寻找指定文件 (临时目录 + 变量_2, 欲搜索文件, 标签)
.如果真 (变量_3 ≠ “”)
返回 (变量_3)
.如果真结束
.如果真结束
变量_2 = 寻找文件 (, #子目录)
.判断循环尾 ()
返回 (“”)
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
|
-
-
测试.rar
28.68 KB, 下载次数: 30, 下载积分: 吾爱币 -1 CB
|
发帖前要善用【论坛搜索】功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。 |
|
|
|
|