Программирование
Веб программирование

CD Rom visual basic

 
 

С помощью FSO можно узнавать полную инфу о сидиках и им подобных. Вот код(только не забывай подключать библиотеку для работы с FSO):

Dim fso As New FileSystemObject, D As Drive
Private Sub Form_Load()
Set D = fso.GetDrive("c:") ' Узнаем есть диск в сидюке(ил подключен диск) ил нету. Если есть то метод возращает True, если нет то False
If D.IsReady = True Then


Label1.Caption = "Всего места: " & D.TotalSize / 1024 / 1024 / 1024 ' Узнаем кол - во свободного места, здесь я написал / 1024 / 1024 / 1024 - это перевод из байтов в гигабайты
Label2.Caption = "На диске свободно: " & D.AvailableSpace / 1024 / 1024 / 1024 ' Узнаем кол - во свободного места, здесь я написал / 1024 / 1024 / 1024 - это перевод из байтов в гигабайты(можно использовать и FreeSpace, эффект такой же)
' чтобы узнать сколько занято надо от кол- ва места на диске отнять кол - во свободного места
Label3.Caption = "На диске занято: " & (D.TotalSize - D.AvailableSpace) / 1024 / 1024 / 1024
Label4.Caption = "Буквенное обозначение диска: " & D.DriveLetter ' Узнаем буквенное обозначение диска
Label5.Caption = "Файловая система: " & D.FileSystem ' Узнаем файловую систему
Label6.Caption = "серийный номер: " & D.SerialNumber ' Узнаем серийный номер диска
Else ' Если сидюк недоступен, то выводим сообщение
MsgBox "Сидюк не доступен"
End If
End Sub

Исходник качай Отсюда


Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.