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

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【当Access文件大于指定的大小时就自动压缩】，下面是详细的分享！

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

以下为引用的内容：

Public Function AutoCompactCurrentProject()
    Dim fs, f, s, filespec
    Dim strProjectPath As String, strProjectName As String
    strProjectPath=Application.CurrentProject.Path
    strProjectName=Application.CurrentProject.Name
    filespec=strProjectPath & "\" & strProjectName
    Set fs=CreateObject("Scripting.FileSystemObject")
    Set f=fs.GetFile(filespec)
    s=CLng(f.Size / 1000000)  ‘转换文件大小为MB
    If s > 20 Then                       ‘修改此处的20M为你自己需要的值
        Application.SetOption ("Auto Compact"), 1  ‘压缩程序
    Else
        Application.SetOption ("Auto Compact"), 0   ‘不压缩程序
    End If
End Function

以上所分享的是关于当Access文件大于指定的大小时就自动压缩，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：电脑文件有多少种格式？哪种格式压缩后的文件大小...

　　答：.aiff 声音文件 Windows media Player .!!! Netants 暂存文件 Netants .ani 动画鼠标 .arj 压缩文件 ARJ .avi 电影文件 Windows media Player .awd 传真文档 .bak 备份文件 .bas Basic 语言 Basic .bat DOS批处理文件 .bin MAC 二进制码文件 Stu... >>详细

　　相关问题：Access数据库文件过大，压缩了好久还是超过50m怎么办

　　答：1、经实践总结，当Access数据库超过50M时，网站的整体响应会变得非常缓慢，同时也会影响服务器上其他网站的性能。如果数据非常大，建议你升级为SQL Server数据库。 2、如果你的网站中有留言本等交互性页面，务必设置验证码等防护措施，以免被黑... >>详细

　　相关问题：压缩access数据库的原理

　　答：1.首先你要了解数据库变大的原因：随着您不断添加、更新数据以及更改数据库设计，数据库文件会变得越来越大。导致增大的因素不仅包括新数据，还包括其他一些方面： (1)Access 会创建临时的隐藏对象来完成各种任务。有时，Access 在不再需要这些... >>详细