[VBA]：AutoCAD 文件自动备份工具（VBA部分代码）

efan2000

本程序是在VBA环境中运行的，需要R2000及以上版本才支持。
本程序是以组件的方式封装的，运行之前请先注册EFBackup.dll，在“运行”中键入：Regsvr32 "路径\EFBackup.dll"。

1、程序加载后，自动在C盘根目录下创建一个ACADBackFile.Dat的文件，用于存放备份的文件。
2、对于ACAD运行时的创建的临时文件、或者手工保存的文件将进行备份，且记录每一次的备份文件，因而如果自动保存的时间设置很小或者打开的文件过多，请及时清除不用的备份文件。
3、对于其它的文件，可以手工添加备份。相当于一个小型的文件管理的功能。



程序附后：查看密码：backup。需要在R2004中才能打开VBA环境。

gzy

好！2002里面也能成功打开VBA环境！不过我对软件功能以及程序还不大懂。

efan2000

函数的主要功能介绍：

1. 
   
2. 1、NewBackup 新建一个备份文件，后面的参数Name代表文件名称。
   
3. 2、OpenBackup 打开一个备份文件，后面的参数Name代表文件名称。
   
4. 3、DeleteBackup 删除当前打开的备份文件。
   
5. 4、AddFile 在当前打开的备份文件中增加一个文件记录，后面的参数Name代表文件名称。
   
6. 5、DeleteFile 在当前打开的备份文件中删除一个文件记录，后面的参数Index代表备份文件中的编号。
   
7. 6、EditFile 在当前打开的备份文件中替代一个文件记录，后面的参数Index代表备份文件中的编号，Name代表要替代的文件名称。
   
8. 7、SaveFile 从当前打开的备份文件中导出一个文件记录，后面的参数Index代表备份文件中的编号，Name代表要保存的文件名称。
   
9. 8、GetRows 获取当前打开的备份文件中的所有记录，保存到一个二维数据组，主要用于列表显示。
   
10. 9、CompactBackup 压缩当前打开的备份文件，主要用于操作一段时间后文件会自动增大。
    
11. 10、ShowOpen 显示打开的对话框，用于获取一个文件的名称。
    
12. 11、ShowSave 显示保存的对话框，用于获取一个文件的名称。
    

复制代码

myfreemind

好东东!

bluemoon

2000 不能打开啊

efan2000

重新上载了，可以自己新建一个DVB工程。然后将源程序导入，最后引用efbackup.dll文件即可。

qd2008

好东东！真是佩服至极！顶

gcho

efan2000 发表于 2003-10-14 18:54
重新上载了，可以自己新建一个DVB工程。然后将源程序导入，最后引用efbackup.dll文件即可。

我按照你说的方法（CAD2007版本）：
运行: regsvr32 "D\CADTolls\efbackup.dll"  注册了组建；
加载：D\CADTolls\EFBackup.dvb
ALT+F8运行该dvb文件，窗口能出来，可是内容始终为空白（我设置1分钟自动保存，且在这一分钟内修改了图形）。

还有几处疑问，这是在cad打开状态下运行宏打开那个窗口，若是cad死机或断电了，它还能保存吗！

谢谢版主！