نياز به كمك فوري در ارتباط با فايل Xzip.dll و رفرنس آن

[Mahsa Hatefi]

با سلام بر تمامي اساتيد بزرگوار

من فايل xzip.dll رو توي برنامه اي استفاده كردم
1- در system32 كپي شده
2- در رفرنسها انتخاب و تيك خورده
3- رجيستر شده

روي سيستم خودم براحتي كار مي كند حالا وقتي فايل mde شده رو به سيستم كاربران ديگر منتقل كرده ام متوجه شدم كه اين dll عمل نمي كند . فكر كردم كه در mde شدن و يا انتقال مشكلي پيش آمده بنابراين فايل نصب mde را بر روي سيستم خودم باز نصب كردم و بخوبي كار كرد .
مرحله بعد اصل برنامه mdb رو بر روي يكي از سيستم هاي كاربراني كه قبلا فايل dll عمل نكرده بود بردم و رفرنس xzip.dll رو حذف و مجددا رفرنس رو دادم و همانجا برناممو mde كردم . برنامه بخوبي كار كرد . در نتيجه آنچه مسلم است اينستكه اين dll بعد از انتقال به سيستمي ديگر ، ديگر عمل نمي كند و بايد رفرنس آن در هر سيستم مجددا ريفرش شود . خوب بهترين و مناسبترين را كدام است ؟

خوب به نظر شما برنامه كاربران من كه بيش از پانصد نفرند رو چگونه اصلاح كنم ؟
پيشنهاد فوري شما مورد امتنان خواهد بود .

[RESMAILY]

به نام خدا
با سلام. پاسخ سوال شما را دقيقا نمي دانم. ولي چرا از Winrar استفاده نمي كنيد؟ روي همه سيستم ها هست و اگرنباشد هم نصب كنيد به درد شان مي خورد. كليه دستورات آن را هم مي شود از داخل VBA هم اجرا كرد.

[Mahsa Hatefi]

ذوست بزرگوار

اگر لطف كنيد و عملكرد آن را در نمونه MDB ارسال كنيد واقعا سپاسگزار خواهم بود

[Mahsa Hatefi]

دوست بزرگوار

چگونه بايد winrar را به محيط VBA بشناسانم ؟

[mehdi_fiz]

سلام دوست عزیز
من هم از همین فایل استفاده می کنم و با استفاده از نرم افزار های setup ساز در سیستم های مقصد فایل را در کنار نرم افزار ریجستر می کنم و مشکلی هم نداره فایل dll رو برای شما پیوست می کنم
موفق باشید
65184

[Mahsa Hatefi]

دوست بزرگوار

من هم دقيقا همين كار رو انجام داده ام . براي نصب هم از SetupFactory ver 8 استفاده كرده ام حتي براي اطمينان در فرمي از برنامه با كد regsvr32 هم آون رو رجيستر كرده ام اما ...

خوب حالا اگر ايراد از رجيستر باشد به نظرتون با يه بچ فايل مي شه مشكلو حل كرد ؟ چطوري ؟

به هر حال ممنون

[mehdi_fiz]

دوست عزیز این نمونه فایل رو ملاحظه کنید
موفق باشید

[انگوران]

با سلام - موقع كپي فايل مذكور در system32 با ارور مواجه ميشم، علتش چيه ؟

[Mahsa Hatefi]

ظاهرا مشكل چيز ديگريست .

حتي وقتي دستي هم رجيستر مي كنم باز جواب نمي دهد . حتما بايد روي سيستم mdb رو منتقل كنم رفرنس قبلي رو حذف كنم و دوباره رفرنس رو بدم تا به كار بيافته !!!!!
واقعا نمي دونم چه كنم اگر راهي به نظرتون رسيد ممنون مي شم

[انگوران]

دوست عزيز ، موردي كه مطرح كردم مشكل خودم بوده كه دنبال راه حلش بودم و منظورم ايراد گرفتن از فايل شما نبود .

[Mahsa Hatefi]

دوست بزرگوار جناب انگوران

حقير عذرخواهي مي كنم زماني كه من پست هاي آخر رو زدم پست هاي شما رو اصلا نداشتم . لذا موردي كه نوشتم مورد خودم بود و الان پست هاي شما رو ديدم حالا چرا اون موقع پست هاي شما دو نديدم نمي دونم . به هر حاي عذرخواهي مي كنم .

در مورد كپي توي پوشه هاي ويندوز چون عموما در حالت پروتكت هستش ايراد مي گيرد براي همين كپي فيلها در پوشه هاي پروتكت ويندوز رو به برنامه setup ساز مي سپرم .

موفق باشيد

[RESMAILY]

به نام خدا
با سلام از روال زير استفاده بفرماييد. توضيح آنكه در خط اول مي توانيد به جاي تابع نوشته شده مستقيما مسير winrar.exe را درج نماييد.
Function MAKE_ZIP(strDrive As String, Optional strFileName As String) As Boolean
On Error GoTo 100
'strPath_Path for example is a userdf. function that find fullPath of Winrar.exe
strPath = strPath_Path(("WinRAR.exe"), ("C:\Program Files"))
If strPath = "" Then Exit Function 'Winrar not installed
10:
strDirectory = Trim(strDrive & ":\DATABAK")
longX = CreateDirectory(strDirectory, 0)
If strFileName <> "" Then GoTo 20
strFileName = CurrentProject.Name
strX = Trim(Mid(strFileName, 1, Len(strFileName) - 4))
strX = Trim(strX & "_Bak" & Right(strFileName, 4))
strFileName = Trim("\" & strX)
20:
strDir = CurrentProject.path
strFileName = strDir & strFileName
strDirectory = strDirectory & "\DATA.RAR"
'secret.rar using the password = '447447'
' با پاسورد
strPathZip = strPath & " a -hp447447 " & strDirectory & " " & strFileName
'يابدون پاسورد
strPathZip = strPath & " a " & strDirectory & " " & strFileName

On Error Resume Next
x = Shell(strPathZip)
MAKE_ZIP = True
Exit Function
100:
'MsgBox Err.Description & Err.Number, vbExclamation, "كپي انجام نشد"
End Function