Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » En kolay disk bilgileri
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

çok fazla textbox kullananlar için

Yazar: cornellius

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 2663
Yayın Tar:09.04.2005
Yazar : erdemonline
Hit :3115

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

En kolay disk bilgileri

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.





Yorumlar, eklemeler ve düşünceler
        teşekkürler

   ontedi, 20.04.2005 17:09
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin