ضغط الملفات برمجيا

أرفق الملف هنا ..

لأنه يجب أن أسجل .. لكي أنزل الملف..

تحياتي :happy:

إليك هذه الروابط التي قد تفيدك ، وأظن أنك يجب أن تحمل مكتبات DLL الخاصة بـZipper والـUnzip ..

إضغط هنا

إضغط هنا

تحياتي :happy:

أولاً ، أنا متشكر جداً لردك السريع وزوقك الراقي

ثانياً ، الروابط التي أرفقتها لا تعمل لدي ولا أعلم السبب

رابعاً ، أرجو التعديل علي المثال المرفق بطريقة سهلة وسلسة لأنني أحتاج فهم هذه الفكرة ضروري لأنها ستفيدني في برامجي

حيث يحتوي المثال علي

Zipper, Unzipper

فإنتهيت من برمجة الـ Zipper ، لكن Un Zipper للأسف لم أجد الفكرة مباشرتاً

شكراً لحضرتك

Simble.rar

أخي العزيز شكراً لك على ذوقك اللطيف والرائع ..

ثانياً أخي المثال الذي قمت بإعداده هو للـUnZip ولكن الـZip لم تقم بعمله .. أي عكس ما كتبته في مشاركتك ..

لذلك قمت بعمل الـZipper وإن شاء الله المثال يعمل معاك ..

ولكن الرابط الثاني فيه ملف قد يفيدك وبما أن الروابط لا تعمل رفعته لك في المشاركة باسم (1854_cgziplib) ..

والمثال بـ(Simple) .. قريباً المثال الآن جاري العمل عليه ..

تحياتي :happy:

أخي العزيز شكراً لك على ذوقك اللطيف والرائع ..

ثانياً أخي المثال الذي قمت بإعداده هو للـUnZip ولكن الـZip لم تقم بعمله .. أي عكس ما كتبته في مشاركتك ..

لذلك قمت بعمل الـZipper وإن شاء الله المثال يعمل معاك ..

ولكن الرابط الثاني فيه ملف قد يفيدك وبما أن الروابط لا تعمل رفعته لك في المشاركة باسم (1854_cgziplib) ..

والمثال بـ(Simple) .. قريباً المثال الآن جاري العمل عليه ..

تحياتي :happy:

1854_cgziplib.zip

لكل كل الشكر والتقدير والإحترام لحضرتك

فعلاً أنا أخطأت وعكست بين

Zipper

Unzipper

فشكراً لك

بخصوص الملف أللي حضرتك أرفقتة أنا فعلاً حملتة عندي مسبقاً وشغلتة كمان

لكن عملية الـ Zipper لا تعمل لدي علي الإطلاق !!!

لذلك أرفقت لحضرتك مثال بسيط وسلس أرجو أن يكون الفكرة الجديده نابعة من نفس الآداة Shell32 ، بدلاً من توابع API

شكراً لحضرتك مرة أخري

وجزاك الله خير الجزاء

أنتظر منك التعديل

اقتباس

كل عام وحضرتك بخير

عيد سعيد

أعاده الله عليكم وعلينا بالخير واليمن والبركات

عيدك مبارك كل عام وأنتم بخير

لقد قمت بعمل مثال جديد وسيحتوي إن شاء الله على ضغط ملف أو فولدير أو فك ضغط ..

إن شاء الله في أقرب وقت سأضعه أنا الآن في الخطوات الأخير إن شاء الله ..

تحياتي :happy:

خذ وقتك كما تشاء

فيكفيني إهتمام حضرتك

جزاك الله كل خير

MMA_EG_Cairo كتب:

خذ وقتك كما تشاء

فيكفيني إهتمام حضرتك

جزاك الله كل خير

الحمدلله إكتملت وهاهو في المرفقات ..

أتمنى أن يعجبك الملف ، وإذا كنت تريد فهم أي كود فيه أنا مستعد ..

ولكن هذا شرح بسيط حول إستخدام البرنامج ..

تحياتي :happy:

Simple1.zip

لكل كل الشكر والتقدير ، فلقد فهمت محتوي الكود جيداً وهو سهل بحمد الله

فقمت بالتعديل علي البرنامج حتي لا يقم بإنشاء ملف مضغوط جديد ويفقد ما عليه من ملفات قديمة كما يلي :

If (Dir(sFileDest) = "") Then
    If Not Create_Empty_Zip(sFileDest) Then
        GoTo EH
    End If
End If

كذلك قمت بإجراء عملية بحث عن ملف محدد في المقدمة حتي لا يتكرر الملف من جديد ويعرض ليا رسالة النسخ الغير جيدة كما يلي :

Set ShellClass = New Shell32.Shell
Set Folderitems = ShellClass.NameSpace(sFileDest).Items
If (FindItem(Folderitems, Dir(sFileSource)) = False) Then
    Set Filedest = ShellClass.NameSpace(sFileDest)
    Call Filedest.CopyHere(sFileSource, 20)
End If

ولكن لدي سؤالين آخرين وأعتذر عن الإطالة مع حضرتك

1- كيف يمكنني مسح ملف واحد فقط من كافة الملفات الموجوده داخل الملف المضغوط ؟؟

2- كيف يمكنني سرد جميع الملفات الموجوده داخل الملف المضغوط سواء كان ملف مباشر أو غلاف يتضمن علي مجموعة من الملفات بداخلة ؟؟

اقتباس

1- كيف يمكنني مسح ملف واحد فقط من كافة الملفات الموجوده داخل الملف المضغوط ؟؟

2- كيف يمكنني سرد جميع الملفات الموجوده داخل الملف المضغوط سواء كان ملف مباشر أو غلاف يتضمن علي مجموعة من الملفات بداخلة ؟؟

في الحقيقة لا أعلم ..

ولكن سأبحث ولكن لو توصلت إلى حل قبلي فأخبرني ..

تحياتي :happy:

عملية السرد في مقدمة الملف المضغوط سهلة سواء للملفات أو للأغلفة ، لكن في حالة لو كان هناك غلاف Folder داخل الملف المضغوط للأسف لا أعلم كيف أقتبسة وأتعامل معه وأسرد جميع ما بداخلة (وهذه هي المشكلة الحقيقية ولم أتوصل إليها) !!!

أما بخصوص عملية الحذف ، فمن الواضح أن أفضل طريقة هي إخراج جميع الملفات الموجوده داخل الملف المضغوط ملف ملف وضغطة في ملف مضغوط آخر عدا الملف المراد حذفه (مثل طريقة حذف سجل من ملف متسلسل) !!!

عموماً أنا متابع وأتمني لو لقيت شيء تخبرني به !!!

ومبدئياً سأستغل الفرصة المتاحة حالياً وسأجعل الملف مجرد للقراءة فقط Read Only !!!

شكراً لحضرتك

جزاك الله كل خير

كل عام وحضرتك بألف خير

ممكن سؤال أخير ؟؟؟

كيف يمكنني إضافة Password بالملف المضغوط ومن ثم فتح الملف وعمل Unzipper لملف ما دون عرض شاشة تطلب إدخال كلمة مرور له ؟؟؟