Функция GetDriveType

Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

GetDriveType определяет типы дисков на компьютере. Это могут быть жесткие диски, флоппи-диски, CD-ROM и др.

Возвращаемое значение

Функция возвращает тип диска. Перечень возвращаемых значений:

DRIVE_UNKNOWN=0	Тип устройства определить не удалось
DRIVE_NO_ROOT_DIR=1	Корневой директории не существует
DRIVE_REMOVABLE = 2	Сменный диск(напр.дискетта или любой сменный диск)
DRIVE_FIXED = 3	Жесткий диск
DRIVE_REMOTE = 4	Сетевой диск
DRIVE_CDROM = 5	CD-ROM
DRIVE_RAMDISK = 6	Эмулируемый в оперативной памяти так называемый RAM-диск

Параметры

nDrive

Корневой каталог диска, как "c:\" или "a:\"

Пример

' Определяем тип диска D:
Dim drivetype As Long  

drivetype = GetDriveType("d:\")  
If drivetype = 1 Then Debug.Print "Диск D:\ не существует"
If drivetype = DRIVE_REMOVABLE Then Print "Диск D:\ сменный диск"
If drivetype = DRIVE_FIXED Then Print "Диск D:\ жесткий диск"
If drivetype = DRIVE_CDROM Then Print "Диск D:\ CD-ROM."
' и т.д.

Категория

Файлы