منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

تعلم كيفية إحفاء المجلدات و الملفات بالفجوال بيسك 6

اذهب الى الأسفل

تعلم كيفية إحفاء المجلدات و الملفات بالفجوال بيسك 6 Empty تعلم كيفية إحفاء المجلدات و الملفات بالفجوال بيسك 6

مُساهمة من طرف جورج صبحى الأربعاء فبراير 13, 2013 1:23 pm

اهلا وسهلا بكم أعضاء منتدى مصر التقنى ...اقدم لكم درس عن كيفية إخفاء المجلدات بكل محتوياته عن طريق الفجوال بيسك 6 ولن يتم العثور علية حتى لو أستخدم خاصية show hinddin file and folder الموجودة فى الويندوذ ..



الخطوة الاولى : قم بفتح مشروع قياسى من الفجوال بيسك 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
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى