- 1
- 2
вот 65 это буква A, a 90 это Z
Dim myDrive As Integer
For myDrive = 65 To 90
Debug.Print Chr(myDrive) & ":" & " - " & GetDriveType(Chr(myDrive) & ":")
Next
Вот что возвратит функция GetDriveType нам, например у меня:
A: - 2
C: - 3
D: - 3
E: - 5
Все остальные буквы помечены цифрой 1. Да, что бы понять эти обозначения нужно знать следующую таблицу:
Имя константы:Значение:
DRIVE_UNKNOWN | 0 |
DRIVE_NO_ROOT_DIR | 1 |
DRIVE_REMOVEABLE | 2 |
DRIVE_FIXED | 3 |
DRIVE_REMOTE | 4 |
DRIVE_CDROM | 5 |
DRIVE_RAMDISK | 6 |
Подпрограмма Main в модуле является как Form_Load на форме, т.е. считается главной и загружается по умолчанию.
О предназначениях многих API функций можно легко догадаться по их названию. Например, GetWindowsDirectory (получить директорию Windows) или GetDriveType (получить тип носителя).
Список литературы
Для подготовки данной работы были использованы материалы с сайта http://visualprogs.narod.ru/
- 1
- 2
Похожие работы
Тема: Толстой л. н. - Что такое человек и что такое жизнь в изображении толстого в романе |
Предмет/Тип: Другое (Сочинение) |
Тема: Семейный бизнес или что такое хорошо, что такое плохо |
Предмет/Тип: Менеджмент (Статья) |
Тема: Что такое любовь? |
Предмет/Тип: Религиоведение (Реферат) |
Тема: Что такое OpenMP? |
Предмет/Тип: Другое (Реферат) |
Тема: Что такое деятельность? |
Предмет/Тип: Психология (Реферат) |
Интересная статья: Быстрое написание курсовой работы