اخفاء مجلد

[الحلبي]

47 دقائق مضت, Eng.Qassim said:

بناء على اقتراخ الاستاذ @محمد احمد لطفى..قمت بعمل مربع نص لادخال المسار

ياسلام عليك استاذ / قاسم جزاك الله كل خير

كما اشكر استاذ / موسى  جزاه الله خير 

واشكر الجميع وكل من ساهم فى هذه المشاركة الطيبة الجميلة

ولى ملاحظة صغيرة لو كان امكانية لاخفاء المجلد او اظهاره بدون مسار الملف فقط تختار الملف عند الضعط على الاخفاء وتختار الملف

وعند الاظهار نختار الملف ايضا دون كتابة مسار الملف  اعتقد بهذا يكون افضل ـ وعند عدم الامكانية من التعديل اكتفى بهذا الحل المبهر

كما اشكر الاستاذ /  TQTHAMI على حسن السؤال الذى افاد الجميع وافادنى شخصيا

جزاكم كل خير ـ وجعله فى ميزان حسناتكم

[ابو عبد الرحمن اشرف]

بارك الله فيك اخي Eng.Qassim

وجميع الخبراء والاعضاء في ذلك المنتدي الرائع

13 دقائق مضت, الحلبي said:

ياسلام عليك استاذ / قاسم جزاك الله كل خير

كما اشكر استاذ / موسى  جزاه الله خير 

واشكر الجميع وكل من ساهم فى هذه المشاركة الطيبة الجميلة

ولى ملاحظة صغيرة لو كان امكانية لاخفاء المجلد او اظهاره بدون مسار الملف فقط تختار الملف عند الضعط على الاخفاء وتختار الملف

وعند الاظهار نختار الملف ايضا دون كتابة مسار الملف  اعتقد بهذا يكون افضل ـ وعند عدم الامكانية من التعديل اكتفى بهذا الحل المبهر

كما اشكر الاستاذ /  TQTHAMI على حسن السؤال الذى افاد الجميع وافادنى شخصيا

جزاكم كل خير ـ وجعله فى ميزان حسناتكم

وانا خارج الموضوع ماشي 

بارك الله في الجميع ونفع الله بكم 

[محمد احمد لطفى]

جزاكم الله كل خير 

وبالنسبة بدون مسار 

 

    Dim objFSO As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim objFolder As Object
    Set objFolder = objFSO.GetFolder("D:\NameFolder")
    objFolder.Attributes = objFolder.Attributes + 2

 

[TQTHAMI]

السلام عليكم ورحمة الله 

اشكر الجميع على هذا التفاعل الجميل 

نعم هذا المطلوب اخي Eng.Qassim

واسأل الله انه يوفق الجميع لما يحب ويرضى

[الحلبي]

11 دقائق مضت, ابو عبد الرحمن اشرف said:

وانا خارج الموضوع ماشي 

حبيبى واستاذى / ابو عبد الرحمن اشرف

اسف جدا جدا جدا جدا جدا  سهوا منى والله العظيم  لا تغضب منى فانا اكن فى نفسى حبى للجميع وابدا لا احب السهو هذه انا ضد ذلك تماما

وانا لو مكانك ازعل ولكن استاذى المحترم لك كل الاحترام والتقدير فقد ساهمت باهم شئ ولكن السهو وكبر العمر الله يعطيك الصحة والعافية 

اسف جدا لك وهذه غلطة منى لن احترم نفسى ابدا سامحنى الاستاذ الجميل /ابو عبد الرحمن

وهذا العتاب منك يدل على انك انسان محترم 

5 دقائق مضت, محمد احمد لطفى said:

وبالنسبة بدون مسار 

الاستاذ العزيز / محمد احمد لطفى 

جزاك الله كل خير ـ وجعله فى ميزان الحسنات 

انا اعرف جيدا اين اضع هذا الكود ـ ولكن انا سألت للاخوان الذين لا يعرفون 

فقط ارفق لنا المثال به الكود حتى اراجع نفسى واستفيد من مرفقك ويستفيد الجميع

بارك الله فيك 

[محمد احمد لطفى]

تفضل يا أستاذى 

 

Hide (1).mdb

[ابو عبد الرحمن اشرف]

منذ ساعه, الحلبي said:

حبيبى واستاذى / ابو عبد الرحمن اشرف

اسف جدا جدا جدا جدا جدا  سهوا منى والله العظيم  لا تغضب منى فانا اكن فى نفسى حبى للجميع وابدا لا احب السهو هذه انا ضد ذلك تماما

وانا لو مكانك ازعل ولكن استاذى المحترم لك كل الاحترام والتقدير فقد ساهمت باهم شئ ولكن السهو وكبر العمر الله يعطيك الصحة والعافية 

اسف جدا لك وهذه غلطة منى لن احترم نفسى ابدا سامحنى الاستاذ الجميل /ابو عبد الرحمن

وهذا العتاب منك يدل على انك انسان محترم 

الاستاذ العزيز / محمد احمد لطفى 

جزاك الله كل خير ـ وجعله فى ميزان الحسنات 

انا اعرف جيدا اين اضع هذا الكود ـ ولكن انا سألت للاخوان الذين لا يعرفون 

فقط ارفق لنا المثال به الكود حتى اراجع نفسى واستفيد من مرفقك ويستفيد الجميع

بارك الله فيك 

اخي الحبيب الغالي اخجلتم تواضعنا لا داعي للاسف بين الاحبة اخي وانا كنت بهزررررر حفظكم الله وراعاكم جميعا اخواني الفضلاء

[الحلبي]

منذ ساعه, محمد احمد لطفى said:

تفضل يا أستاذى 

اشكرك استاذ/ محمد احمد لطفى

بارك الله فيك انت انسان محترم وجزاك الله كل خير

[Eng.Qassim]

4 ساعات مضت, الحلبي said:

وعند الاظهار نختار الملف ايضا دون كتابة مسار الملف

شكرا دكتور على كلماتك الرقيقة

كيف نختار الملف لاظهاره..وهو مخفي من الاساس..اعتقد الموضوع بحاجة لشوية تفكير

رأيي مثلا ...عمل جدول لمسار المجلدات المهمة ..والادمن فقط لديه الصلاحية للاطلاع على المسارات

[محمد احمد لطفى]

أستاذى @Eng.Qassim


لما نكون محددين الملف بالكود مش هنختاره هو هيظهر 
 

Set objFolder = objFSO.GetFolder("D:\NameFolder")

و ده لمعرفة ان كان الملف مخفى 
 

If objFolder.Attributes And 2 Then
        objFolder.Attributes = objFolder.Attributes + 2
End If

حيث رقم 2 الملف مخفى  بحيث ان كان مخفى يظهر 

بس مش عارف لو العكس ان الملف ظاهر يبقى ايه ؟ 

[ابو عبد الرحمن اشرف]

اخواني الافاضل 

ماذا لو ان هناك حدث او معالجة ما تسجل ما نختارة من ادلة عند استعراضها في جدول "ملاحظات" بحيث يتم نسخها مرة اخري في خانة مسار المجلد ثم الضغط علي زر اظهار 

 

 

واليكم الملف بعد تعديل بسيط واريد ارائكم 

‏‏Hide -ashraf.rar

[kkhalifa1960]

للاسف يمكن اظهار المجلد .... اذهب امكان المجلد ثم ابدأ من اليسار (View - Option- Change Folder and and search Options- View) وأكمل مع الصورة    ثم ظهور المجلد بلون أصفر باهت .

الحل !!!!!!!!!!!!!! برنامج كما بمشاركتي الأولى

والله ولي التوفيق 

PhoXo1.bmp