现在软件都有更新，lisp如何做到局域网更新，请求高手解决

bmy07

在局域网共享中的文件夹放入一个文件

1.运行lisp的时候可以查找异域网上的文件 用
(setq filename1 (findfie “[url=]\\\\10.0.0.55\\[/url]共享\\test.lsp”))
(setq filename2 (findfie “\\c:\\lisp\\test.lsp”))
2.用(setq timeold (vl-file-systime filename1)得出共享文件的修改时间
  用(setq timenew (vl-file-systime filename1)本地电脑文件的修改时间
3.两个时间 timeold timenew 进行对比，不一样的时候把局域网中的test.lsp覆盖到本地test.lsp

第三步如何做到呢？

bmy07

既然没人回复

Gu_xl

1. (defun filecopy (source-file destination-file)
   
2.   (cond
   
3.     ((not (findfile source-file)) nil)
   
4.     ((findfile destination-file)
   
5.      (if
   
6.        (vl-file-delete destination-file)
   
7.        (vl-file-copy (findfile source-file) destination-file)
   
8.        )
   
9.      )
   
10.     (t (vl-file-copy (findfile source-file) destination-file))
    
11.     )
    
12.   )
    

(defun filecopy (source-file destination-file)<br />   (cond<br />     ((not (findfile source-file)) nil)<br />     ((findfile destination-file)<br />      (if<br />        (vl-file-delete destination-file)<br />        (vl-file-copy (findfile source-file) destination-file)<br />        )<br />      )<br />     (t (vl-file-copy (findfile source-file) destination-file))<br />     )<br />   )<br />

bmy07

谢谢Gu_xl

mmmmmm

你都能读取到局域网的文件了，直接从局域网LOAD就好了，何必要拷贝到本地再LOAD？

bmy07

mmmmmm 发表于 2012-9-21 11:51
你都能读取到局域网的文件了，直接从局域网LOAD就好了，何必要拷贝到本地再LOAD？

太多人连接，连接数目不够用，而且速度会比较慢

cheng5276

其实建议不要用文件时间去检测，容易出错。
我的方法有两种模式：
1、有新版本时提示用户重新安装（直接根据安装程序的版本号判断）
2、较小更新直接后台复制即可

mmmmmm

我觉得判断时读取一次，拷贝时再读取一次应该比直接LOAD要更加消耗。

sheoh

Gu_xl 发表于 2012-9-21 11:21

请教一下vl-file-copy函数在复制的时候是没有进度显示的，对于文件小还好，文件比较大的话就比较麻烦，没有进度显示，不知道还剩多少时间复制好，请问这个怎么解决呢？