التعامل مع الأقراص
Imports System.IO 'نؼرف المكتبت
Dim s() As String 'نؼرف متغير من نىع نص مغ ػلامت ()
s = Directory.GetLogicalDrives() 'نجؼل المتغير يساوي جميغ الاقراص
المىجىدة قي جهاز الكمبيىتر
ListBox1.Items.AddRange(s) 'نظيف الاقراص الي
عملية اضافة المجلدات من الاقراص الموجودة في الست 0
Dim t As Integer
Dim d() As String
d = Directory.GetDirectories(ListBox1.Items(1))
ListBox2.Items.AddRange(d)