Anasayfa > Kodlar > Apilerle sürücü bilgilerini gösterme

Apilerle sürücü bilgilerini gösterme


Sürücüler   acaromer

Bu programda Sürücülerin doluluk boşluk oranını, seri numarasını ve özelliklerini
gride listeleyen bir program.Siz isterseniz eklemeler yapabilirsiniz...KoLay GeLSiN:))


Private Sub Form_Load()
Dim fs, d, dc, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d In dc
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Col = 0: MSFlexGrid1 = d.DriveLetter & ":"
Select Case d.DriveType
Case 0: t = "Unknown"
Case 1: t = "Removable"
Case 2: t = "Fixed"
Case 3: t = "Network"
Case 4: t = "CD-ROM"
Case 5: t = "RAM Disk"
End Select
MSFlexGrid1.Col = 1: MSFlexGrid1 = t
If d.IsReady Then
MSFlexGrid1.Col = 2: MSFlexGrid1 = d.FileSystem
MSFlexGrid1.Col = 3: MSFlexGrid1 = d.VolumeName
MSFlexGrid1.Col = 4: MSFlexGrid1 = d.SerialNumber
If d.TotalSize > 2 ^ 30 Then
MSFlexGrid1.Col = 5: MSFlexGrid1 = FormatNumber(d.TotalSize / 2 ^ 20, 0) & " MB"
MSFlexGrid1.Col = 6: MSFlexGrid1 = FormatNumber(d.FreeSpace / 2 ^ 20, 0) & " MB"
ElseIf d.TotalSize > 2 ^ 20 Then
MSFlexGrid1.Col = 5: MSFlexGrid1 = FormatNumber(d.TotalSize / 2 ^ 10, 0) & " KB"
MSFlexGrid1.Col = 6: MSFlexGrid1 = FormatNumber(d.FreeSpace / 2 ^ 10, 0) & " KB"
ElseIf d.TotalSize > 2 ^ 10 Then
MSFlexGrid1.Col = 5: MSFlexGrid1 = FormatNumber(d.TotalSize, 0) & " Byte"
MSFlexGrid1.Col = 6: MSFlexGrid1 = FormatNumber(d.FreeSpace, 0) & " Byte"
End If
End If
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
Next
MSFlexGrid1.Rows = MSFlexGrid1.Rows - 1
End Sub

  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: