تعديل علي كود

[السبيل1]

وجدت كود عند البحث يعمل علي أخفاء وإظهار مجلد ما
الكود الأول يعمل علي أخفاء مجلد من خلال وضع مساره في مربع النص 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"

 

[ابوخليل]

بارك الله فيك انت عرضت السؤال وانت وضعت الحل ايضا

بالطريقة التي ذكرتها يتم تحقيق ذلك

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

 

[السبيل1]

ممتن للمساعدة شكرا لك

[السبيل1]

لزيادة الفائدة ما الإضافة التي ستترأ علي بنية الكود إذا اردنا إخفاء مجلد ما بتحديد اسمه وموضعه علي الحاسب بالنسخ واللصق داخل الكود وليكن مثلاً مجلد باسم Pic داخل مجلد جديد  New folder علي الدريف D

[السبيل1]

هل الإضافة الأخيرة غير ممكنة ؟

[ابوخليل]

استبدل الجملة

CurrentProject.Path & "\Pic"

بهذه الجملة

"D:\New folder\Pic"

 

[السبيل1]

Thank you