T A J P R O G Сешанбе, 21.05.2019, 05:44
Приветствую Вас Гость | RSS
Меню сайта

Наш опрос
Ба сомонаи мо баҳо диҳед!
Ҷавобҳо ҳамагӣ: 569

Статистика

Онлайн ҳамагӣ: 1
Меҳмон: 1
Истифодабаранда: 0


16:55
Дарси 49. Маълумот оиди дискҳои компютерӣ

Код Visual Basic .NET


Dim имя$ = ""
        Dim s$ = "   "
        Const d% = 1073741824
        With My.Computer.FileSystem
            For i = 0 To .Drives.Count - 1
                имя = .Drives.Item(i).Name
 
                'Добавляем в лист имя диска
                ListBox2.Items.Add(.GetDriveInfo(имя).VolumeLabel & "_" & имя)
 
                'Проверка общего объёма диска
                Dim obem = Val(.GetDriveInfo(имя).TotalSize)
 
                ListBox2.Items.Add(s & "Общий объем: " & obem & " Байт | " & _
                                   Format(Val(obem) / d, "0.00") & " Гб")
                'Проверка свободного объёма диска
                Dim svob = Val(.GetDriveInfo(имя).TotalFreeSpace)
 
                ListBox2.Items.Add(s & "Свободно: " & svob & " Байт | " & _
                                   Format(Val(svob) / d, "0.00") & " Гб")
 
                'Получение информации об файловой системе
                ListBox2.Items.Add(s & "Файловая система: " & _
                      .GetDriveInfo(имя).DriveFormat)
 
                'Тип диска
                ListBox2.Items.Add(s & "Тип диска: " & _
                      .GetDriveInfo(имя).DriveType)
            Next
        End With
Просмотров: 240 | Добавил: aplove | Рейтинг: 0.0/0
Всего комментариев: 0
Ном *:
Email:
Код *:
Реклама

Поиск

Календарь
«  Май 2014  »
ДСЧПҶШЯ
   1234
567891011
12131415161718
19202122232425
262728293031

Архив записей

Друзья сайта

Copyright © Умаров Алибек 2019,. Все права защищены.