كود جميل لاستخدم WinZip8 في برنامجك!
Function winZipit(ByVal source As String, ByVal target As String, ByVal zip As Boolean) zipIT = App.Path & "winzip32 -a" unzipIT = App.Path & "winzip32 -e " If zip = True Then Shell (zipIT & target & source) Else: Shell (unzipIT & target & source) End If End Function
Hany Saad Mostafa
ITI (Information Technology Institute) l
SD Dept.-Teaching Assistant
---
اسألكم الدعاء بظهر الغيب
شغال يا هانى.....
بس هل ممكن الضغط وفك الضغط بهذا الكود؟
اشرح من فضلك
;) ;) :rolleyes:
أعمل لدنياك كأنك تعيش أبداً وأعمل لأخرتك كأنك تموت غداً
أحفظ لسانك تصان كرامتك
-----------------
من مواضيعى بالمنتدى
جديد الباب الاول من كتابى المدخل الى قواعد البيانات
جديد دروس قواعد البيانات
الان حرك الماوس بواسطة الكيبورد
برنامج VB6 Projects Viewer مساعد المبرمجين
شِكرا على ردك يا شريف
بالفعل هذا الكود يمكن ان يستخدم للضغط وفك الضغط
zipIT = App.Path & "winzip32 -a" unzipIT = App.Path & "winzip32 -e " If zip = True Then Shell (zipIT & target & source) Else: Shell (unzipIT & target & source) End If
Hany Saad Mostafa
ITI (Information Technology Institute) l
SD Dept.-Teaching Assistant
---
اسألكم الدعاء بظهر الغيب
ِشكرا فعلاً رائع
الواحد يستغنى عن ملفات الكاب ويستخدم الضغط ده احسن
حقيقى مشكور
;) ;) :rolleyes:
أعمل لدنياك كأنك تعيش أبداً وأعمل لأخرتك كأنك تموت غداً
أحفظ لسانك تصان كرامتك
-----------------
من مواضيعى بالمنتدى
جديد الباب الاول من كتابى المدخل الى قواعد البيانات
جديد دروس قواعد البيانات
الان حرك الماوس بواسطة الكيبورد
برنامج VB6 Projects Viewer مساعد المبرمجين
اقتباسالواحد يستغنى عن ملفات الكاب ويستخدم الضغط ده احسن
لسه عندك المشكلة الاهم :D
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
اقتباسلسه عندك المشكلة الاهم :D
الأن اصبح لا يوجد مشكله نهائيا :lol:
:lol: :lol: :lol:
أعمل لدنياك كأنك تعيش أبداً وأعمل لأخرتك كأنك تموت غداً
أحفظ لسانك تصان كرامتك
-----------------
من مواضيعى بالمنتدى
جديد الباب الاول من كتابى المدخل الى قواعد البيانات
جديد دروس قواعد البيانات
الان حرك الماوس بواسطة الكيبورد
برنامج VB6 Projects Viewer مساعد المبرمجين
هههههههههههه
انسى لااظن ان لها حل على الفيجوال
المشكلة ياهانى هى عمل stand alone executable file from vb
:rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
اقتباسالمشكلة ياهانى هى عمل stand alone executable file from vb
:lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol:
;) ;) :rolleyes:
أعمل لدنياك كأنك تعيش أبداً وأعمل لأخرتك كأنك تموت غداً
أحفظ لسانك تصان كرامتك
-----------------
من مواضيعى بالمنتدى
جديد الباب الاول من كتابى المدخل الى قواعد البيانات
جديد دروس قواعد البيانات
الان حرك الماوس بواسطة الكيبورد
برنامج VB6 Projects Viewer مساعد المبرمجين
هههههههههههههه
اتحدى
ههههههههههههه
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
:(
:rolleyes:
B)
:lol:
:D
أعمل لدنياك كأنك تعيش أبداً وأعمل لأخرتك كأنك تموت غداً
أحفظ لسانك تصان كرامتك
-----------------
من مواضيعى بالمنتدى
جديد الباب الاول من كتابى المدخل الى قواعد البيانات
جديد دروس قواعد البيانات
الان حرك الماوس بواسطة الكيبورد
برنامج VB6 Projects Viewer مساعد المبرمجين
هذا الموضوع مغلق.