当Access文件大于指定的大小时就自动压缩

public Function AutoCompactCurrentProject()
Dim fs，f，s，filespec
Dim strProjectPath As String，strProjectName As String
strProjectPath = Application。current project . Path
str projectname = Application。current project . Name
filespec = strProjectPath & " \ " & strProjectName
Set fs = CreateObject(" Scripting。file system object ")
Set f = fs。GetFile(filespec)
s = CLng(f . Size/1000000)将文件大小转换为MB
如果s > 20，则'在此将20M修改为您自己的值
application . setoption(" auto compact ")，1 '压缩程序
else
application . setoption(" auto compact ")，0 '解压缩程序
end if
end函数在任何退出程序之前调用此函数，例如退出:[/br