[bidaya]

(21-02-17, 06:02 PM)مساعدة كتب : أشكرك أستاذ sendbad100
فشرحكم وافي ما شاء الله.

---

أستاذ bidaya

مشروعك ذو اصدار اعلى، فلم أتمكن من تشغيله،

لكن بالنظر للكود لم أجد الدالة

هذا تعديل لأحد اسطرها

كود :

Dim zipPath As String = GetNewFilename(SaveDir & "\save" & FolderName & ".rar")

لا ادري كيف ومن اين ابدأ اخي الشكر قليل عليك اخي
الله يحفظك اخي وان يجعلها لك في ميزان الحسنات
الكود ظبط تمام التمام