Função Para Retornar Quantos Drives De Cd/dvd O Computador Tem

[raphaelwc]

alguém sabe uma Função para retornar quantos Drives de CD/DVD o computador tem?

[Graymalkin]

Não, mas você pode percorrer o alfabeto todo e saber quais letras são CD/DVD-ROMs (e assim, é claro, contar quantos existem). Para isso, dê uma olhada na função GetDriveType da API Win32 no API-Guide (tem exemplo): http://www.allapi.net/ ou http://www.mentalis.org/

Certo? ;)

Graymalkin

[raphaelwc]

Adicione essa função num module:

Public Function ContarCds() As String

Set objWMIService = GetObject("winmgmts:\\" & "." & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _

("Select * from Win32_CDROMDrive")

For Each objNetAdapter In colNetAdapters

errEnable = objNetAdapter.Caption

cdrom.Text = cdrom.Text + 1

Next

End Function

Crie um Form com uma caixa de Texto chamada cdrom.Text

e no Form_load coloque assim:

ContarCds

[Graymalkin]

Mas, isso daí só vai funcionar no Win2000 em diante (XP, 2003, etc.), não?

Abraços,

Graymalkin

[Guest Visitante]

É acho que sim ele usa umas parada de WMI

Wmi é muito massa você usa aquele script em cim para tudo e é tipo Consulta de SQL.