| |
|
| |||||||
 |
| | Seçenekler |
|
#1
24-12-2007, 12:23
| ||||||
| ||||||
Apilerle sürücü bilgilerini göstermeApilerle 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.++++++Number 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  |
|
| Arama Etiketleri: apilerle, bilgilerini, gosterme, surucu |
| Seçenekler | |
| |
Benzer Konular | ||||
| Konu | Konu Açanlar | Forum | Cevaplar | Güncel Mesajlar |
| ftp bilgilerini ne yaptımsa yapamadım | banauyar | SMF çözüm arşivi | 7 | 27-09-2008 02:32 |
| Philips'ten harici Blu-ray sürücü DX-410S | egitimbilgisi | Donanım Haberleri | 1 | 25-03-2008 03:48 |
| Sabit sürücü nedir? | kadınca | Webmaster Sözlügü | 0 | 22-02-2008 12:44 |
| ## Asus'dan Yeni Bir HD DVD Sürücü ## | LeaveMeALoNe | Donanım Haberleri | 0 | 21-11-2007 12:22 |
| Kullanıcı Bilgilerini Kısayoldan Değiştirme | kadınca | Vbulletin | 0 | 04-11-2007 12:06 |
 |  |
