Как узнать вставлены ли сьемные носители в компьютере?

~~dev.Free~~ · 28.07.2012, 19:40. **Показов** 989. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Вот решил еще поделится найденным кодом! Кстати тоже на форуме поднималась эта тема!

Visual Basic

Private Sub Command1_Click()
  Dim FSO As Object
  Dim oDrive As Object
  Dim sRemoveableDrivelist As String
  Set FSO = CreateObject("Scripting.FileSystemObject")
  For Each oDrive In FSO.Drives
    If oDrive.driveType = 1 Then
      sRemoveableDrivelist = oDrive.driveLetter & ", "
    End If
  Next
  If Len(sRemoveableDrivelist) <> 0 Then
    sRemoveableDrivelist = Left(sRemoveableDrivelist, Len(sRemoveableDrivelist) - 2)
    MsgBox "К компьютеру подключены съёмные диски: " & sRemoveableDrivelist, vbInformation + vbOKOnly, "Съёмные диски"
  Else
    MsgBox "К компьютеру не подключены съёмные диски.", vbInformation + vbOKOnly, "Съёмные диски"
  End If
End Sub

@Catstail · 29.07.2012, 09:10

Гм... Программа показывает наличие в списке устройств съемных носителей (кстати, пропуская при этом floppy...), но не показывает ВСТАВЛЕН ЛИ СЪЕМНЫЙ НОСИТЕЛЬ

~~dev.Free~~ · 29.07.2012, 10:12 **[ТС]**

Да, этот метод не покажет подключен ли в данный момент сам носитель, он покажет его только тогда, когда само устройство уже будет определено самой системой и установлены необходимые для его нормальной работы драйвера.

@Catstail Модератор 36605 / 20333 / 4221 Регистрация: 12.02.2012 Сообщений: 33,649 Записей в блоге: 13
	29.07.2012, 09:10	2
	Гм... Программа показывает наличие в списке устройств съемных носителей (кстати, пропуская при этом floppy...), но не показывает ВСТАВЛЕН ЛИ СЪЕМНЫЙ НОСИТЕЛЬ 0

~~dev.Free~~ Заблокирован
	29.07.2012, 10:12 [ТС]	3
	Да, этот метод не покажет подключен ли в данный момент сам носитель, он покажет его только тогда, когда само устройство уже будет определено самой системой и установлены необходимые для его нормальной работы драйвера. 0