ایجاد نسخه پشتیبان با پسوند rar. به صورت اتوماتیک با اجرای فایل اکسس و باز شدن یک فرم

[access2003]

سلام علیکم
می خوام با اجرای فایل اکسس و باز شده اولین فرم ، به صورت اتوماتیک از بانک جاری نسخه پشتیبان تهیه و به آدرس خود فایل اکسس به صورت فشرده با پسوند rar ذخیره گردد. همچنین اسم آن با به صورتی اتوماتیک با تاریخ ترکیب و ایجاد گردد.لطفاً راهنمائی فرمائید.

[RESMAILY]

به نام خدا
با سلام من قبلا در اين زمينه يك نمونه تقديم كرده ام. سال گذشته. بگرديد پيدا مي كنيد. چيزي شبيه كد زير لازم داريد. طبعا نام فايل ها و مسيرها فرضي است. در ضمن يك Api هم لازم است كه نوشته ام.

'Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As Long) As Long
longX = CreateDirectory("D:\DATABAK", 0)
strD = CurrentProject.Path
strPathZip = "C:\PROGRAM FILES\WinRAR\WinRAR.exe u ""D:\DATABAK\DATA.RAR"" """ & strD & "\data2003_Back.mdb"""
On Error Resume Next
x = Shell(strPathZip)

شما با مطالعه help برنامه winrar به اساني مي توانيد هر تغييري در كد خودتان بدهيد. مثلا آن را رمز دار كنيد و غيره

[access2003]

با سلام
کد فوق در خط دوم دچار خطا می شود و مشکل آن را نفهمیدم اگر ممکنه کمک کنید.

[access2003]

با سلام
کد فوق در خط دوم دچار خطا می شود و مشکل آن را نفهمیدم اگر ممکنه کمک کنید.

[RESMAILY]

به نام خدا
با سلام ندانستم منظورتان كدام خط است. اجمالا حدس مي زنم در ساخت فولدر مشكلي باشد. ببينيد شما اصلا اين قسمت را نديد بگيريد. فرمان ساخت فايل فشرده با wirar را در نظر بگيريد فقط، موضوع حل مي شود. يعني اين خط فرمان در تمام ويندوزها جواب مي دهد و ليست كامل خط فرمان هم در help نرم افزار موجود است. فرض كنيد فولدري به نام IMG را مي خواهيد در درايوD بصورت rar ذخيره كنيد و winrar هم در درايو c قرار دارد. در اينصورت:

strD = CurrentProject.path
strPathZip = "C:\PROGRAM FILES\WinRAR\WinRAR.exe u ""D:\IMG.RAR"" """ & strD & "\IMG"""
x = Shell(strPathZip)

موفق باشيد