لیست کردن CD-ROM ها

[ALI TT]

سلام

کسی کدی داره که بتونه CD-Rom های دستگاه رو لیست کنه ؟

من یکی دارم ، ولی حداقل 5 تا 6 ثانیه زمان میگیره تا لیست کنه .

Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_CDROMDrive")

For Each queryObj As ManagementObject In searcher.Get()


ListBox1.Items.Add((queryObj("Drive").ToString))


Next

[ALI TT]

یکی پیدا کردم ، جواب داد ، کسی چیز دیگه ای نداره ؟

For i As Integer = 0 To My.Computer.FileSystem.Drives.Count - 1

If My.Computer.FileSystem.Drives.Item(i).DriveType.To String = "CDRom" Then

ListBox1.Items.Add(My.Computer.FileSystem.Drives.I tem(i).Name.ToString)

End If

Next