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 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