جهت زیپ کردن فایل جاری دراکسس بدون استفاده از Winzip ویا WinRar از کدزیر می توان استفاده کرد:
Sub ZipFile(SourceFile , FileNameZip )
' SourceFile : Example: "F:\MyProgram\Myfile.mdb"
' FileNameZip : Example: "F:\MyProgram\BackUp\Myfile_90-09-25.zip"
On Error GoTo errzip
Dim oApp As Object
If Len(Dir(FileNameZip)) > 0 Then Kill FileNameZip
NewZip FileNameZip
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameZip).CopyHere SourceFile
Set oApp = Nothing
Exit Sub
errzip:
MsgBox Err.Number & " - " & Err.Description
End Sub
Sub NewZip(sPath)
If Len(Dir(sPath)) > 0 Then Kill sPath
Open sPath For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1
End Sub
مثال برای ایجاد کپی زیپ از فایل جاری در دایرکتوری جاری:
ZipFile CurrentDb.Name, CurrentProject.Path & "\YourFileName.zip"
بکاپ گیری اتوماتیک و فشرده از دیتابیس بدون کشت و کشتار!
پاسخ با نقل قول
نوشته شده توسط Fatollah_ghazi
