تعلم كيفية إحفاء المجلدات و الملفات بالفجوال بيسك 6
صفحة 1 من اصل 1 • شاطر
تعلم كيفية إحفاء المجلدات و الملفات بالفجوال بيسك 6
اهلا وسهلا بكم أعضاء منتدى مصر التقنى ...اقدم لكم درس عن كيفية إخفاء المجلدات بكل محتوياته عن طريق الفجوال بيسك 6 ولن يتم العثور علية حتى لو أستخدم خاصية show hinddin file and folder الموجودة فى الويندوذ ..
الخطوة الاولى : قم بفتح مشروع قياسى من الفجوال بيسك 6 و اضف عدد 2 زر ...ثم قم بتسمية الز الاول (إخفاء) و الثانى (إظهار )
الخطوة الثانية : قم بإدراج المكتبة Microsoft Scripting Runtime للمشروع
الخطوة الثالثة : قم بكتابة الكود التالى فى حدث النقر على الزر (إخفاء) :
الخطوة الرابعة : قم بكتابة الكود التالى فى حدث النقر للزر ( إظهار ):
وعند تشغيل البرنامج و الضغط على زر الامر (إخفاء ) سوف يتم اخفاء المجلد TestFolder الموجود فى C وعند الضغط على زر الامر (إظهار) سوف يتم إعادة المجلد الى اصله
الخطوة الاولى : قم بفتح مشروع قياسى من الفجوال بيسك 6 و اضف عدد 2 زر ...ثم قم بتسمية الز الاول (إخفاء) و الثانى (إظهار )
الخطوة الثانية : قم بإدراج المكتبة Microsoft Scripting Runtime للمشروع
الخطوة الثالثة : قم بكتابة الكود التالى فى حدث النقر على الزر (إخفاء) :
- الكود:
Private Sub Command1_Click()
Dim FS As New FileSystemObject
Dim F
Dim strPath As String
strPath = "c:\TestFolder"
Name strPath As strPath & "A"
Set F = FS.GetFolder(strPath & "A")
f.Attributes = -1
End Sub
الخطوة الرابعة : قم بكتابة الكود التالى فى حدث النقر للزر ( إظهار ):
- الكود:
Private Sub Command2_Click()
Dim fs As New FileSystemObject
Dim f
Dim strPath As String
strPath = "c:\TestFolder"
Set f = fs.GetFolder(strPath & "A")
f.Attributes = 0
Name strPath & "A" As strPath
End Sub
وعند تشغيل البرنامج و الضغط على زر الامر (إخفاء ) سوف يتم اخفاء المجلد TestFolder الموجود فى C وعند الضغط على زر الامر (إظهار) سوف يتم إعادة المجلد الى اصله
جورج صبحى- ......
- تاريخ التسجيل : 18/02/2011
المساهمات : 127
النقاط : 259
التقيم : 6
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
أمس في 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
أمس في 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد