[elgokr]

مرحباً اخى الكريم من جديد

اليك الكود قم باضافته فى اى حدث تريده

كود :

       Dim MyDrives As New ListBox
       For Each Drive In System.IO.DriveInfo.GetDrives()
           If Drive.DriveType = IO.DriveType.Fixed Then
               For Each a In System.IO.Directory.GetDirectories(Drive.Name)
                   If Not Drive.Name = "C:\" Then
                       If a = Drive.Name & "Windows" Or a = Drive.Name & "Users" Or a = Drive.Name & "Program Files" Then
                           MyDrives.Items.Add(Drive.Name)
                       End If
                   End If
               Next
           End If
       Next

       If MyDrives.Items.Count <> 0 Then
           If MyDrives.Items(0) = MyDrives.Items(1) And MyDrives.Items(0) = MyDrives.Items(2) Then
               ' كود التهيئة الدرايف فقط قم بازالة كلمة REM
               REM Process.Start("format.com", MyDrives.Items(0))
               MessageBox.Show("Format Drive: " & MyDrives.Items(0), "Done!.")
           End If
       Else
           MsgBox("لا يوجد درايف يحتوى على ملفات النظام لاعادة التهيئة.")
       End If

تذكر ثم تذكر ثم تذكر

حتى لا تقع فى الخطاء وتسبب لنفسك الضرر

الكود على اتم الحرص التام والدقة لتجنب الاخطاء

ولكن احببت التنبيه لنقطة لكيفية تامينى للكود

حيث ان الكود يقوم بالتحقق على 3 مراحل بتواجد كلاً من

مجلد Windows وايضاً Users وايضاً Program Files

سيقوم بتهيئة هذا الدرايف حتى ولو تم تواجد الـ 3 مجلدات فى الدرايف D الخاص بك

وكذلك انه يقوم بتخطى درايف C الخاص بك من فحص كلاً من المجلدات المذكور بالاعلى

يعنى سيتم بداء البحث ابتداءاً من A الى Z مع تخطي C اذا وجد كلاً من 3 مجلدات سيقوم بعمل التهيئة

عملية A:Z يتم على الهارد ديسك فقط بمعنى لو كان عندك درايف F خاص بالدى فى دى سيتم تخطيه ايضاً

اذا كان لديك A يخص Floppy Disk سيتم تخطى ايضاً وكذلك اذا كنت تقوم بعمل درايف Network كذلك سيتم تخطي

لتفعيل علملية التهيئة فى الكود بالاعلى

تعال على السطر التالى

كود :

               REM Process.Start("format.com", MyDrives.Items(0))

واستبدله بـ

كود :

               Process.Start("format.com", MyDrives.Items(0))

وبكده يكون الكود يعمل معك مباشراً

لم اقوم بشرح كل سطر بالكود حتى لا تقوم بالتعديل عليه

كى لا تقع تحت اى ضرر مثل تهيئة دريف بجهازك بالخطاء وما شبه

اذا قمت باختبار الكود مباشراً فلا تقلقل لم يحدث اى ضرر

فقط كل ما عليك ان تتاكد بان اى درايف لديك لا يتحتوى على كلاً 3 مجلدات 

المذكور بالاعلى معاً مثلاً على D او E وما شبه خلاف C

تحياتى لك

وتمنياتى لك التوفيق