Описание функции

GetDriveType

Получить тип диска

GetDriveType(DriveLetter$)

Параметры

DriveLetter$ Диск, например "C"

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

Успех:Возвращает строку тип диска, например: "Fixed", "Rem " и т.д.

Примечания

Используйте GetDrives().
Вывод используется текстовый для вставки в ListIconGadget()

Пример


EnableExplicit

Procedure.s GetDriveType(Drive2$)
    Protected type.l
    type = GetDriveType_(Drive2$ + ":\")
    Select type
        Case #DRIVE_REMOVABLE
            Drive2$ = "Rem "
        Case #DRIVE_FIXED
            Drive2$ = "Fixed"
        Case #DRIVE_REMOTE, #DRIVE_CDROM, #DRIVE_RAMDISK
            Drive2$ = "-"
        Case #DRIVE_NO_ROOT_DIR
            Drive2$ = "No_Root_Dir"
        Case #DRIVE_UNKNOWN
            Drive2$ = "Unknown"
        Default
            Drive2$ = "---"
    EndSelect
         ProcedureReturn Drive2$
EndProcedure

Debug GetDriveType("C")