1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
| Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Integer 'Обьявлеянм функцию, которая определит тип диска
Declare Function GetDiscFreeSpace Lib "kernel32.dll" Alias "GetDiskFreeSpaceA" ( _
ByVal nDriver As String, ByRef Sectorov_vClaster As Integer, ByRef Byt_VSectore As Integer, _
ByRef Svobodno_Clasterov As Integer, ByRef Vsego_Clasterov As Integer) As Integer 'Обьявлеянм функцию которая определяет информацию о размере диска
'Перечень возвращаемых значений функции GetDriveType:
Public Const DRIVERVERSION = 0 ' Тип устройства определить не удалось
Public Const DRIVE_REMOVABLE = 2 ' Сменный диск
Public Const DRIVE_FIXED = 3 ' Жесткий диск
Public Const DRIVE_REMOTE = 4 ' Сетевой диск
Public Const DRIVE_CDROM = 5 'CD-ROM
Public Const DRIVE_RAMDISK = 6 'Виртуальный диск
Public Function Wsego_Clasterov_NaDisce(ByVal nDrivers As String) As Long
Dim Sectorov_vClaster, Byt_VSectore, Svobodno_Clasterov, Vsego_Clasterov As Long
Dim a As Long
a = GetDiscFreeSpace(nDrivers, Sectorov_vClaster, Byt_VSectore, Svobodno_Clasterov, Vsego_Clasterov)
If a > 0 Then ' если тип диска определен, то перехолим 1 условию, иначе переходим к Throw New Exception
Return (Sectorov_vClaster) 'Возвращаем значение функции BytesToMegabytes над переменной TotalBytes
Else
Throw New Exception("Ошибка определения диска") ' сообщение если диск не был определен
End If
End Function
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim a As String = "" 'обьявление строковой переменной
Dim B As String = "" 'обьявление строковой переменной
Dim i As Integer 'обьявление переменной и присвоение
Dim TipDisc() As String = {"Error", " - не существует.", " - сменный диск.", " - жесткий диск.", " - Сетевой диск.", " - CD-ROM.", " Ram диск."}
'обьявление строковой переменной и присвоение строковых значений
Dim AlfaVit As String = "CDEFGHIJKLMN" 'обьявление строковой переменной и присвоение строковых значений
Dim drivetype As Long 'обьявление переменной для хронения значения результата работы функции GetDriveTyp
For i = 1 To Len(AlfaVit) 'создание счетчика для перебора всех дисков ПК
a = Mid(AlfaVit, i, 1) ' создание одномерного масива
drivetype = GetDriveType(a & ":")
If drivetype = 1 Then
B &= (vbCrLf & vbCrLf & "Диск '" & a & "' не определен") & vbCrLf
Else
B &= (vbCr & vbCr & "Диск " & a & TipDisc(drivetype) & vbTab & _
"Всего кластеров на диске '" & a & "' : " & Wsego_Clasterov_NaDisce(CStr(a) & ":"))
End If
Next
MsgBox(B)
End Sub
Throw New Exception("Ошибка определения диска")- пишет что не обработано |
(
