Bu driverlar() değişkeni, tüm driver'ların bilgilerini okumaya yardımcı oluyor.
Kod:
Dim driverlar() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()driverlar değişkeninin bilgilerini d olarak tanımlıyoruz.
Kod:
For Each d As System.IO.DriveInfo In driverlard değişkeninin durumu hazırsa.
Kod:
If d.IsReady = True Thend.name, driver ismi. C:/, D:/...
d.DriverType, driver'in tipi.
d.TotalSize, toplam alan.
d.AvailableFreeSpace, boş alan.
Kod:
Dim dinfo As String = _
d.Name & Environment.NewLine & _
d.DriveType & Environment.NewLine & _
d.TotalSize.ToString & Environment.NewLine & _
d.AvailableFreeSpaceBilgilere dinfo ile ulaşıyoruz.
Kod:
MessageBox.Show(dinfo)Next ile döngüyü tekrarlattırıyoruz.
Kod:
End If
NextTüm kodlar
Kod:
Dim driverlar() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()
For Each d As System.IO.DriveInfo In driverlar
If d.IsReady = True Then
Dim dinfo As String = _
d.Name & Environment.NewLine & _
d.DriveType & Environment.NewLine & _
d.TotalSize.ToString & Environment.NewLine & _
d.AvailableFreeSpace
MessageBox.Show(dinfo)
End If
Next
Son düzenleme:
ispis