[讨论]文件自动备份--借鉴nonsmall的方法！

aicr317 · 发表于 2009-9-14 23:02

收集、整理了很多源码放在自己工具箱中，其中代码在不断更新和修改，问题是更新完源代码后，还要做一个备份，每次都要到不同的文件夹把刚刚修改过的文件copy出来（有时要退出某个文件夹，再进入某个文件夹），在放到备份中相应的文件夹很是麻烦，能否做到自动备份？

(RUNDOS
(LIST

"COPY D:\\cad二次开发\\123.DLL F:\\cad二次开发\\UPDATE"

"EXIT"
))

以上方法是借鉴NONSMALL的DOS法，问题是备份同一文件夹中的文件比较方便，多个文件夹就要一一写出来，麻烦！最好还是一条命令备份一个文件，这样就可以做到修改了哪个就备份哪个！

nonsmall · 发表于 2009-9-15 09:17

推荐使用Scripting.FileSystemObject

能够判断文件的创建修改时间修改只读隐藏属性

文件拷贝文件夹拷贝。。。

文件夹拷贝

(Vlax-Invoke-Method (vlax-invoke-method (vlax-get-or-create-object "Scripting.FileSystemObject" ) 'GetFolder "C:\\windows\\" ) 'Copy newfolder 0)

查看文件属性

(Vlax-Get (vlax-invoke-method (vlax-get-or-create-object "Scripting.FileSystemObject" ) 'GetFile "C:\\Boot.ini" ) 'Attributes )

文件拷贝

(Vlax-Invoke-Method (vlax-invoke-method (vlax-get-or-create-object "Scripting.FileSystemObject" ) 'GetFile "C:\\Boot.ini" ) 'Copy "D:\\TEST.txt" 0)

nonsmall · 发表于 2009-9-15 09:20

你这个程序我以前也写过

可以参考下

Shell.Application 是系统自带进度条那种的拷贝^_^

明经网友 *发表于 2009-9-15 23:33* · 发表于 2009-9-15 23:33

小弟愚昧，无法参透，还请进一步指教。。。

no function definition: VBA

aicr317 · 发表于 2009-9-15 23:34

小弟愚昧，无法参透，还请指教。。。。。

no function definition: VBA

nonsmall · 发表于 2009-9-16 10:07

帖子里面不是提出了VBA的来源么？

vba函数是我自己定义的一个解释vba语句的函数

可以直接调用vba语句

这个帖子里讨论了作用

明经网友 *发表于 2009-9-18 12:45* · 发表于 2009-9-18 12:45

试过多次没有成功，也不知道问题出在哪里，还请在指教一下

比如我D:\CAD二次开发\代码组里面有更新的文件，如何复制到U盘里的相应位置，假设U盘是G:

aicr317 · 发表于 2009-9-18 12:47

试过多次，还是没有成功，还请指教

比如我D:\CAD二次开发\代码组里面有更新的文件，如何COPY到U盘相应目录中，假定U盘为G:

明经网友 *发表于 2009-9-18 14:04* · 发表于 2009-9-18 14:04

不用那么高级的咚咚吧

用vl-directory-files得到指定目录下的文件
用vl-file-systime取得文件的修改时间进行比较
用vl-file-copy复制文件到备份目录下面

sailorcwx · 发表于 2009-9-18 14:07

不用那么高级的咚咚吧

用vl-directory-files获取指定目录下的文件名
用vl-file-systime获取修改时间进行比较
用vl-file-copy复制文件到备份目录

账号		自动登录	找回密码
密码			注册

[基础] [讨论]文件自动备份--借鉴nonsmall的方法！