Visual Basic – Basit Disk bilgilerini toplama

Merhaba Programlama Takipcileri Pcniz Hakkında bilgileri Ögrenmek Sürücüler Hakkında bilgi Toplamak İstiyounuz ozman okuyun derim.

Bilgisayarınızda ki sürücüler hakkında bilgi toplamak istiyorsanız bunun en basit yolu filesystemobject i kullanmaktır. Normal de bu bilgilere ulaşmak için bir çok api kullanmak gerekir. Ama biz bunu scrrun.dll içindeki filesystemobject i kullanarak kolaylıkla yapabiliriz.Zaten bilimin amacı da hayatı kolaylaştırmak ve güzelleştirmek değilmidir.

Her zaman olduğu gibi yeni bir proje açalım ve project-references dan Microsoft scripting runtime ı projemize dahil edelim. Formun üzerine sadece minik bir buton koyalım ve formun kod alanına aşağıdakileri aynen yapıştıralım.

Option Explicit ‘Her zaman değişkenler tanımlı olmalı

Private Sub Form_Load()
'formu maximized şekilde açmazsak yazıların hepsini göremeyebiliriz
Me.WindowState = 2
End Sub

Private Sub Command1_Click()

Dim fs As New Scripting.FileSystemObject 'tanımlama
Dim drv As Drive

'uygun olmayan bir sürücü varsa hata vermesin
On Error Resume Next

For Each drv In fs.Drives
Select Case drv.DriveType 'sürücünün türü
Case 1:
Print "DİSKET SÜRÜCÜ: " & drv.DriveLetter
Case 2:
Print "HARDDİSK: " & drv.DriveLetter
Case 3:
Print "A? SÜRÜCÜSÜ: " & drv.DriveLetter
Case 4:
Print "CDROM: " & drv.DriveLetter
Case 5:
Print "RAM SÜRÜCÜ: " & drv.DriveLetter
Case 0:
Print "BİLİNMİYOR: " & drv.DriveLetter
End Select

'kullanılabilir durumda mı?
If drv.IsReady Then
Print " Hazır"
Else
Print " Hazır değil"
End If

Print " Adı: " & drv.VolumeName
Print " Yolu: " & drv.Path
Print " Tam Yolu: " & drv.RootFolder
Print " Toplam alan: " & drv.TotalSize
Print " Boş alan: " & drv.FreeSpace
Print " Dosya Sistemi: " & drv.FileSystem
Print " Seri Numarası: " & drv.SerialNumber
Next drv

End Sub

İşte bu kadar; artık sistemdeki tüm sürücülerin özelliklerini elde ettik. Bu kodları işinize yarayacak yerde kullanmak size kalmış.Kolay gelsin. programlamadersleri.com