Проверить наличие дискеты или CD-Romа в устройстве
'Добавьте на форму элемент DriveListBox и элемент CommandButton. Добавьте 'следующий код. Запустите программу. Выбирая в элементе DriveListBox любое 'устройство (дисковод или привод CD-Rom) и нажимая на кнопку вы узнаете, 'находится ли дискетка или лазерный диск в устройстве.
'ВАРИАНТ 1
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Sub Command1_Click() erg& = GetVolumeInformation(Drive1.drive, VolName$, 127&, VolNumber&, MCM&, FSF&, FSys$, 127&) If erg& = 0 Then MsgBox "Ничего в текущем устройстве нет" Else MsgBox "В текущем устройстве присутствует диск" End If End Sub
'ВАРИАНТ 2 'Установите ссылку к библиотеке Microsoft Scripting Runtime (scrrun.dll)
Private Sub Form_Load() Dim FSO As FileSystemObject Dim CDDrive As drive
Set FSO = New FileSystemObject Set CDDrive = FSO.GetDrive("F:") If CDDrive.IsReady Then MsgBox CDDrive.VolumeName Else MsgBox "CD в лотке отсутствует" End If Set CDDrive = Nothing Set FSO = Nothing End Sub
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Проверить наличие дискеты или CD-Romа в устройстве", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!