关于实现文件压缩和设置文件夹访问权限的问题需要向各位请教

Question

1)我做的数据库存放的文件比较大，所以我在数据库中存放的是文件的地址，但是要求要将这些被调用的文件压缩，因为我把程序，Access和存放的文件都放F:\，在这个目录下建了"文件"这个文件夹存放我的文件，采用了相对路径来调用，但我把“文件"这个文件用WinRaR压缩后，删除"文件"这个文件夹，运行就打不开了查询到的文件了。请各为师兄帮我想想办法，有没有代码实现文件压缩，之后调用时先用代码实现解压缩，再调用
2)这个数据库要求是分为两种用户，普通用户是打不开文件的，也打不开"文件"这个文件夹，这就要求是“文件”对于普通用户来说是一个黑箱，即打不开这个文件夹，也没有权利删除这个文件夹，而高级用户只是有访问的权限，没有修改和删除的权利，请问这个问题又怎么解决呢
先谢谢各位师兄啊

Answer 1

不建议自己写压缩解压程序，因为你用Shell命令调用现成的WinRAR嘛，这里有例子：http://www.enet.com.cn/eschool/inforcenter/A20040214286143.html

Answer 2

http://www.enet.com.cn/eschool/inforcenter/A20040214286143.html
好东东

Answer 3

不好意思，先前没有调试过，这段解压是调试过的：Private Sub Command1_Click()    Dim Rarexe As String 'WINRAR执行文件的位置    Dim Source As String ' 解压缩前的原始文件    Dim Target As String ' 解压缩后的目标文件    Dim FileString As String 'Shell指令中的字符串    Dim Result As Long        Rarexe = "E:\WinRAR\WinRAR.exe"     '"E:\WinRAR\"：我WinRAR程序安装路径   "WinRAR.exe"：就是WinRAR主程序    Source = App.Path & "\Test.rar"     '需要解压的源文件    Target = App.Path & "\Test"      '注意这里是填入你要解压的路径    FileString = Rarexe & " X " & Source & " " & Target    Result = Shell(FileString, vbHide)End Sub