Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Информация о компьютере  
     
  Проверить наличие дискеты или 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
 
     
  VBNet online (всего: 51586)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам