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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تعلم كيفية إحفاء المجلدات و الملفات بالفجوال بيسك 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
المساهمات : 98
النقاط : 211
التقيم : 3
الجنس : ذكر

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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