r
以下是一个类文件，下面的注解是调用类的方法r
注意：如果系统不支持建立Scripti
gFileSystemObject对象，那么数据库压缩功能将无法使用r
Access数据库类r
CreateDbFile建立一个Access数据库文件r
CompactDatabase压缩一个Access数据库文件r
建立对象方法r
SetaNewDatabaseToolsr
by萧寒雪sfr
r
r
ClassDatabaseToolsr
r
Publicfu
ctio
CreateDBfilebyValdbFileNamebyValDbVerbyValSavePathr
建立数据库文件r
IfDbVeris0The
CreateAccess97dbFiler
IfDbVeris1The
CreateAccess2000dbFiler
O
errorresumeNextr
IfRightSavePath1