儅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

位律師廻複