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