اخفاء مجلد

[الحلبي]

  في 4‏/2‏/2023 at 09:53, Eng.Qassim said:

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

Expand  

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

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

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

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

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

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

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

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

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

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

  في 4‏/2‏/2023 at 10:42, الحلبي said:

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

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

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

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

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

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

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

Expand  

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

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

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

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

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

 

    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

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

[الحلبي]

  في 4‏/2‏/2023 at 10:54, ابو عبد الرحمن اشرف said:

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

Expand  

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

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

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

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

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

  في 4‏/2‏/2023 at 11:07, محمد احمد لطفى said:

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

Expand  

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

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

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

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

بارك الله فيك 

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

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

 

Hide (1).mdbFetching info...

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

  في 4‏/2‏/2023 at 11:10, الحلبي said:

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

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

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

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

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

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

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

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

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

بارك الله فيك 

Expand  

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

[الحلبي]

  في 4‏/2‏/2023 at 11:23, محمد احمد لطفى said:

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

Expand  

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

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

[Eng.Qassim]

  في 4‏/2‏/2023 at 10:42, الحلبي said:

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

Expand  

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

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

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

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

أستاذى @Eng.Qassim


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

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

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

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

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

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

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

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

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

 

 

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

‏‏Hide -ashraf.rarFetching info...

[kkhalifa1960]

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

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

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

PhoXo1.bmpFetching info...