Сайт Алексея Муртазина (Star Cat) E-mail: starcat-rus@yandex.ru
Мои программы Новости сайта Мои идеи Мои стихи Форум Об авторе Мой ЖЖ
VB коды Статьи о VB6 API функции Самоучитель по VB.NET
Собрания сочинений Обмен ссылками Все работы с фото и видео
О моём деде Муртазине ГР Картинная галерея «Дыхание души»
Звёздный Кот

53 Сколько дисководов,
жестких дисков и подключен ли сетевой диск
Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" _
(ByVal nDrive As String) As Long

'GetDriveType Constants
Const DRIVE_REMOVABLE = 2
Const DRIVE_FIXED = 3
Const DRIVE_REMOTE = 4
Const DRIVE_CDROM = 5
Const DRIVE_RAMDISK = 6

Private Sub cGetDriveType()
Dim i, Drv, D$
For i = 0 To 25
D$ = Chr$(i + 65) & ":\"
Drv = GetDriveType(D$)
Select Case Drv
Case DRIVE_REMOVABLE
MsgBox "Диск " & D$ & "сменный диск.", vbOKOnly + vbInformation
Case DRIVE_FIXED
MsgBox "Диск " & D$ & "жесткий диск.", vbOKOnly + vbInformation
Case DRIVE_REMOTE
MsgBox "Диск " & D$ & "сетевой диск.", vbOKOnly + vbInformation
Case DRIVE_CDROM
MsgBox "Диск " & D$ & "CD-ROM.", vbOKOnly + vbInformation
Case DRIVE_RAMDISK
MsgBox "Диск " & D$ & "is RAM disk.", vbOKOnly + vbInformation
Case Else
End Select
Next i
End Sub

Инфо
Сайт создан: 20 июня 2015 г.
Рейтинг@Mail.ru
Главная страница