文件复制 哪位帮忙看看是啥问题

疲惫小老弟

文件_复制 (取运行目录 () ＋ “\” ＋ 取执行文件名 (), 临时目录 ＋ “TieBao_PUBG.exe”, 0)

代码地址我调试输出没问题啊   咋复制不过去啊

命令是写在启动窗口创建完毕下，，意思窗口创建完毕就把自身复制到指定目录里

风度猫

这个命令前几天有人说过,新版本的精易模块无法复制自身,老版本9点几以前的才可以

小李吃不饱

既然有BUG 那就写到文件把你的EXE放到图片资源 然后写到文件到你的路径不就好了

疲惫小老弟

小李吃不饱 发表于 2024-5-12 15:11
既然有BUG 那就写到文件把你的EXE放到图片资源 然后写到文件到你的路径不就好了 ...

自身文件太大   然后占用文件大小

疲惫小老弟

.版本 2
.支持库 shell

.子程序 __启动窗口_创建完毕

.如果真 (取运行目录 () ≠ “E:”)
    复制自身至 (“E:”, 真, )
    结束 ()
.如果真结束


.子程序 复制自身至
.参数 目标目录, 文本型
.参数 是否运行, 逻辑型, 可空
.参数 创建桌面快捷方式, 逻辑型, 可空
.局部变量 文件号, 整数型
.局部变量 Copy路径, 文本型

Copy路径 ＝ 取特定目录 (11) ＋ “c.cmd”
.如果真 (取文本右边 (目标目录, 1) ≠ “\”)  ' 判断 目标目录 正确性
    目标目录 ＝ 目标目录 ＋ “\”
.如果真结束
.如果真 (写到文件 (Copy路径, {  }))
    文件号 ＝ 打开文件 (Copy路径, , )
    .如果真 (取文件长度 (文件号) ＝ 0)
        写出文本 (文件号, “copy ” ＋ #引号 ＋ 取运行目录 () ＋ “\” ＋ 取执行文件名 () ＋ #引号 ＋ “ ” ＋ 目标目录 ＋ 取执行文件名 () ＋ #换行符)
        写出文本 (文件号, “Del ” ＋ #引号 ＋ 取运行目录 () ＋ “\” ＋ 取执行文件名 () ＋ #引号 ＋ #换行符)
        .如果真 (是否运行)
            写出文本 (文件号, 目标目录 ＋ 取执行文件名 () ＋ #换行符)
        .如果真结束
        写出文本 (文件号, “Del ” ＋ Copy路径 ＋ #换行符)
        关闭文件 (文件号)
        运行 (“cmd /c ” ＋ Copy路径, 假, 1)
    .如果真结束

.如果真结束




自己找到代码了 - -

zz1318

试试文件操作

紫苏7798

  

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
an	逻辑型

an ＝ 复制文件 (取运行目录 () ＋ “\” ＋ 取执行文件名 (), 取特定目录 ( #系统桌面 ) ＋ “1.tmp”)
调试输出 (an)

i支持库列表	支持库注释
shell	操作系统界面功能支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 shell<br /> .支持库 spec<br /> <br /> .子程序 _临时子程序<br /> .局部变量 an, 逻辑型<br /> <br /> an ＝ 复制文件 (取运行目录 () ＋ “\” ＋ 取执行文件名 (), 取特定目录 (#系统桌面) ＋ “1.tmp”)<br /> 调试输出 (an)