+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : ضغط ملفات داخل فولدر (/showthread.php?tid=19278)
ضغط ملفات داخل فولدر - عبدالله الصافي - 17-02-17
السلام عليكم ورحمة الله وبركاته
بالمرفقات مشروع ضغط ملف داخل ملف zip
قمت بالتعديل عليه ليقوم بضغط عدة ملفات داخل فولدر معين
ولكن اوقات يعمل تمام واوقات اخري يظهر لي تلك الرسالة
وخاصة عند تعدد الملفات داخل المجلد
اتمني ان اجد حل تلك المشكلة
او طرقة اخري للقيام بنفس العمل
ولكم جزيل الشكر
RE: ضغط ملفات داخل فولدر - Ahmed_Mansoor - 17-02-17
وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم , تم تعديل المثال .
RE: ضغط ملفات داخل فولدر - عبدالله الصافي - 17-02-17
(17-02-17, 01:02 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم , تم تعديل المثال .
شكرا لك اخي الكريم
سأجري عليه الاختبار وابلغك بالنتيجة
وان شاء الله يطلع تمام
الحمدلله الكود شغال تمام
بارك الله لك وجعله في ميزان حسناتك
RE: ضغط ملفات داخل فولدر - عبدالله الصافي - 19-02-17
عذرا أستاذ Ahmed_Mansoor
عند تجريب الكود علي مجلد يحتوي علي عدد كبير من الملفات ظهرت تلك النافذة
فهل من طريقة لإخفائها اثناء الضغط؟
ولك جزيل الشكر
RE: ضغط ملفات داخل فولدر - Ahmed_Mansoor - 20-02-17
أهلا أخي الكريم , جرب تغير رقم الخيار الخاص بالنسخ الرقم الموجود بالكود هو 20 غير إلى 4 وجرب , في هذه السطور من الدالة :
الموجود :
PHP كود :
Call Filedest.CopyHere(sFileSource, 20)
بعد تغيير رقم خيار النسخ :
PHP كود :
Call Filedest.CopyHere(sFileSource, 4)
- وهذه أرقام خيارات النسخ :
PHP كود :
(4)
Do not display a progress dialog box.
(8)
Give the file being operated on a new name in a move, copy, 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 group. Only copy the specified files.
RE: ضغط ملفات داخل فولدر - عبدالله الصافي - 20-02-17
شكرا لردك الكريم
فإني اعمل علي ضغط مجلد بالكامل
وقمت بتغيير القيمة 20 الي 4 ولم تجدي نفعا