أشكرك أستاذ sendbad100
فشرحكم وافي ما شاء الله.
أستاذ bidaya
مشروعك ذو اصدار اعلى، فلم أتمكن من تشغيله،
لكن بالنظر للكود لم أجد الدالة
هذا تعديل لأحد اسطرها
فشرحكم وافي ما شاء الله.
أستاذ bidaya
مشروعك ذو اصدار اعلى، فلم أتمكن من تشغيله،
لكن بالنظر للكود لم أجد الدالة
هذا تعديل لأحد اسطرها
كود :
Dim zipPath As String = GetNewFilename(SaveDir & "\save" & FolderName & ".rar")

