19 Декабрь 2008

Как проверить наличие диска в устройстве?

Диск |  Таги: , , ,

Проверить наличие диска в устройстве.

Option Explicit
Dim FSO As FileSystemObject
Dim CDDrive As Drive

Private Sub Form_Load()
Set FSO = New FileSystemObject
Set CDDrive = FSO.GetDrive("C:")
If CDDrive.IsReady Then
    MsgBox "Диск " & CDDrive.VolumeName
Else
    MsgBox "Диск в лотке отсутствует"
End If
Set CDDrive = Nothing
Set FSO = Nothing
End Sub

Запись опубликована on 19.12.2008 at 18:00 и размещена в рубрике: Диск. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.