السبيل1 قام بنشر ديسمبر 5, 2019 مشاركة قام بنشر ديسمبر 5, 2019 وجدت كود عند البحث يعمل علي أخفاء وإظهار مجلد ما الكود الأول يعمل علي أخفاء مجلد من خلال وضع مساره في مربع النص Pat Code If Dir(Me.pat, vbDirectory) <> "" Then SetAttr (Me.pat), vbHidden ElseIf Dir(Me.pat, vbDirectory) = "" Then MsgBox "لا يوجد ملف حتى يتم التطبيق " End If والكود الثاني يعمل علي إظهار نفس المجلد أيضاً بعد وضع مساره في مربع النص Pat SetAttr (Me.pat), vbNormal والمطلوب المساعدة فيه هو التعديل علي هذه الأكواد بحيث تعمل علي أخفاء وإظهار مجلد باسم Pic والمرفق بنفس مجلد القاعدة ليس بنفس طريقة وضع مسار المجلد في مربع نص ولكن بحيث يعمل الكود علي أخفاء المجلد وحتي أذا تم تغير موقع مجلد القاعدة بنقله لمكان أخر دون الحاجة لتحديد أو تجديد المسار أي من خلال هذا التعبير CurrentProject.Path & "\Pic" رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوخليل قام بنشر ديسمبر 5, 2019 أفضل إجابة مشاركة قام بنشر ديسمبر 5, 2019 بارك الله فيك انت عرضت السؤال وانت وضعت الحل ايضا بالطريقة التي ذكرتها يتم تحقيق ذلك If Dir(CurrentProject.Path & "\Pic", vbDirectory) <> "" Then SetAttr (CurrentProject.Path & "\Pic"), vbHidden ElseIf Dir(CurrentProject.Path & "\Pic", vbDirectory) = "" Then MsgBox "لا يوجد ملف حتى يتم التطبيق " SetAttr (CurrentProject.Path & "\Pic"), vbNormal 3 رابط هذا التعليق شارك More sharing options...
السبيل1 قام بنشر ديسمبر 5, 2019 الكاتب مشاركة قام بنشر ديسمبر 5, 2019 ممتن للمساعدة شكرا لك رابط هذا التعليق شارك More sharing options...
السبيل1 قام بنشر ديسمبر 5, 2019 الكاتب مشاركة قام بنشر ديسمبر 5, 2019 لزيادة الفائدة ما الإضافة التي ستترأ علي بنية الكود إذا اردنا إخفاء مجلد ما بتحديد اسمه وموضعه علي الحاسب بالنسخ واللصق داخل الكود وليكن مثلاً مجلد باسم Pic داخل مجلد جديد New folder علي الدريف D رابط هذا التعليق شارك More sharing options...
السبيل1 قام بنشر ديسمبر 5, 2019 الكاتب مشاركة قام بنشر ديسمبر 5, 2019 هل الإضافة الأخيرة غير ممكنة ؟ رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 6, 2019 مشاركة قام بنشر ديسمبر 6, 2019 استبدل الجملة CurrentProject.Path & "\Pic" بهذه الجملة "D:\New folder\Pic" 2 رابط هذا التعليق شارك More sharing options...
السبيل1 قام بنشر ديسمبر 6, 2019 الكاتب مشاركة قام بنشر ديسمبر 6, 2019 Thank you رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.