اليوم درس عن كيفية إنشاء تطبيق لأغلاق و فتح المجلدات من خلال أكواد الفجوال بيسك دوت نت عن طريق خطوات بسيطة على النحو التالى :

1. أفتح الفجوال أستديوا و إنشاء مشروع نموذج نوافذ جديدة وتسميته كما تريد.

2_الآن لإضافة عناصر التحكم التالية :

•  إضافة 3 أزرار و تعيين نص التسمية ب "أغلاق" والزر الثاني "إفتح". وعلى الزر الاخير تكتب "استعراض".
  
•  إضافة 2 مربعات النص واضحة لهم للنص.
  
•  إضافة 2 تسميات، والكتابة في Label1 "الوجهة المجلد" ووضعها فوق Textbox1، كتابة في Label2 "اسم المجلد".
  
•  إضافة الحوار folderbrowser
  

3_ فى حدث النقر على زر الامر "استعراض" نكتب الشفرة التالية :

الكود:

FolderBrowserDialog1.ShowDialog() TextBox1.Text = FolderBrowserDialog1.SelectedPath last = Path.GetFileName(FolderBrowserDialog1.SelectedPath) TextBox2.Text = last TextBox1.Text = TextBox1.Text.Replace(".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}", "")
TextBox2.Text = TextBox2.Text.Replace(".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}", "")


و الكود أعلاه يقوم بفتح الحوار folderbrowser ووضع المسار الكامل للمجلد الذي حددته في textbox1.text وضعت اسم المجلد المحدد في textbox2.text.

4_ كتابة الكود التالى فى حدث النقر لازر الامر "أغلاق" :

الكود:

Dim text1 as string = ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"
Shell("cmd /c" & "ren " & TextBox1.Text & " " & TextBox2.Text & Text1)
Shell("cmd /c" & "attrib +s +h " & TextBox1.Text & ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}\*.*" & " /S /D")
Shell("cmd /c" & "attrib +s +h " & TextBox1.Text & ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}" & " /S /D")


هذا الكود يقوم بفتح موجه الأوامر و تنفيذ الأوامر و التى من شأنها أن تغير اسم المجلد ثم إخفاءه بعد ذلك، بمعنى إنه تم قفل المجلد وإخفائه كليا، و لن تكون قادرة على العثور على هذا المجلد حتى عن طريق الذهاب إلى خيارات المجلد وتحديد إظهار المجلدات المخفية، لذلك تذكر مسار المجلد الذي تم أغلاقة.

5_ كتابة الكود التالى فى حدث النقر على زر الامر "فتح" :

الكود:

Dim text1 as string = ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"
Shell("cmd /c" & "attrib -s -h " & TextBox1.Text & ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}" & " /S /D")
Shell("cmd /c" & "attrib -s -h " & TextBox1.Text & ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}\*.*" & " /S /D")
System.Threading.Thread.Sleep(1000)
Shell("cmd /c" & "ren " & TextBox1.Text & Text1 & " " & TextBox2.Text)

وهذا الكود يفعل عكس الكود اعلاه حيث انه يفتح موجهة الاوامر و تنفيذ الاوامر التى من خلالها نستطيع الغاء اغلاق المجلد او فتحه من جديد