ALI TT
دوشنبه 08 مهر 1387, 03:28 صبح
سلام
کسی کدی داره که بتونه 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
کسی کدی داره که بتونه 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