要命的事，以前怎么没发现。。。。

挚友02

将一个文件的内容复制或附加到另一个文件

(vl-file-copy  source-file destination-file [append])

将一个文件的内容复制或附加到另一个文件。vl-file-copy 函数不会覆盖现有文件，而是将内容附加其后。

$ (vl-file-copy "c:/test.bat" "c:/newauto.bat")nil

复制失败，因为 newauto.bat 已经存在，而又没有指定 append 参数。

复制失败，因为 destination-file 已经存在，不会覆盖destination-file原文件，我日....我就要覆盖destination-file原文件啊...........

vitalgg

(if (findfile distination-file)(vl-file-delete distination-file))

挚友02

咋天我才发现这个问题，加上了这条
(if (findfile distination-file)(vl-file-delete distination-file))
唉，所有有关vl-file-copy 前面都在加这条，无语了。。。。

Bao_lai

函数是死的，人是活的，尊重函数规则，利用函数规则。

kozmosovia

重新定义一个vl-file-copy2，然后老代码全部替换一下-copy为-copy2。

挚友02

给我了一个启发，我将vl-file-copy重新定义一下，这样就可以不用将所有有关vl-file-copy的原程序进行改动了

llsheng_73

挚友02 发表于 2025-5-28 10:11
给我了一个启发，我将vl-file-copy重新定义一下，这样就可以不用将所有有关vl-file-copy的原程序进行改动了 ...

重新定义系统函数或符号，加载的时候就会提示，很讨厌也比较麻烦的
5#的才是完美解决方案