Название Cd-rom-а - VB
Формулировка задачи:
как с помощью VB.6 узнать какой CD-ROM, т.е его название, надо чтобы например при запуске формы название привода отображалось в текстовом поле?
Решение задачи: «Название Cd-rom-а»
textual
Листинг программы
Dim WMI, str, ColCD, CD
set WMI=getobject("Winmgmts:")
str=str & "CD-ПРИВОДЫ:" & VBCRLF
Set ColCD=WMI.execquery("select * from Win32_CDROMDrive")
str=str & "Количество: " & ColCD.count & vbcrlf
For Each CD In ColCD
str=str & "Диск (" & CD.MediaType & ") " & CD.Drive & vbcrlf
str=str & CD.caption & vbcrlf
Next
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д