منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ضغط ملفات داخل فولدر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته

بالمرفقات مشروع ضغط ملف داخل ملف zip
قمت بالتعديل عليه ليقوم بضغط عدة ملفات داخل فولدر معين
ولكن اوقات يعمل تمام واوقات اخري يظهر لي تلك الرسالة
وخاصة عند تعدد الملفات داخل المجلد
اتمني ان اجد حل تلك المشكلة
او طرقة اخري للقيام بنفس العمل
ولكم جزيل الشكر
وعليكم السلام ورحمة الله وبركاته

أهلا أخي الكريم , تم تعديل المثال .
(17-02-17, 01:02 AM)Ahmed_Mansoor كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته

أهلا أخي الكريم , تم تعديل المثال .

شكرا لك اخي الكريم
سأجري عليه الاختبار وابلغك بالنتيجة
وان شاء الله يطلع تمام

الحمدلله الكود شغال تمام
بارك الله لك وجعله في ميزان حسناتك
عذرا أستاذ Ahmed_Mansoor
عند تجريب الكود علي مجلد يحتوي علي عدد كبير من الملفات ظهرت تلك النافذة
فهل من طريقة لإخفائها اثناء الضغط؟
ولك جزيل الشكر
أهلا أخي الكريم , جرب تغير رقم الخيار الخاص بالنسخ الرقم الموجود بالكود هو 20 غير إلى 4 وجرب , في هذه السطور من الدالة :

الموجود :
PHP كود :
Call Filedest.CopyHere(sFileSource20

بعد تغيير رقم خيار النسخ :
PHP كود :
Call Filedest.CopyHere(sFileSource4

- وهذه أرقام خيارات النسخ :
PHP كود :
(4)
Do 
not display a progress dialog box.
(
8)
Give the file being operated on a new name in a movecopy, or rename operation if a file with the target name already exists.
(
16)
Respond with "Yes to All" for any dialog box that is displayed.
(
64)
Preserve undo information, if possible.
(
128)
Perform the operation on files only if a wildcard file name (*.*) is specified.
(
256)
Display a progress dialog box but do not show the file names.
(
512)
Do 
not confirm the creation of a new directory if the operation requires one to be created.
(
1024)
Do 
not display a user interface if an error occurs.
(
2048)
Version 4.71. Do not copy the security attributes of the file.
(
4096)
Only operate in the local directory. Do not operate recursively into subdirectories.
(
8192)
Version 5.0. Do not copy connected files as a groupOnly copy the specified files
شكرا لردك الكريم
فإني اعمل علي ضغط مجلد بالكامل
وقمت بتغيير القيمة 20 الي 4 ولم تجدي نفعا