Private Sub GetInfoAboutDrive()
Dim NewFSO As New FileSystemObject, Driver As Drive 'создать объект системы FSO можно обьявлением переменной типа FSO
Dim sInfoDrv(1 To 5) As String, sSayAboutInfo As String
Set Driver = NewFSO.GetDrive(NewFSO.GetDriveName(drvSelectDrive.Drive))
If Driver.IsReady = True Then 'проверяем готовность устройства к работе
sInfoDrv(1) = Driver.SerialNumber 'возвращает числовой индификатор тома дика
sInfoDrv(2) = Driver.TotalSize / 1048576 'общее пространство переводим из байт в Мбайты
sInfoDrv(3) = Driver.FreeSpace / 1048576 'свободное пространство, можно использовать Driver. AvailableSpace
sInfoDrv(4) = Driver.FileSystem 'тип файловой системы(FAT, NTFS, CDFS)
'формируем сообщение
sSayAboutInfo = "№ " & sInfoDrv(1) & Chr(10)
sSayAboutInfo = sSayAboutInfo & "Всего :" & sInfoDrv(2) & " Мбайт" & Chr(10)
sSayAboutInfo = sSayAboutInfo & "Свободно :" & sInfoDrv(3) & " Mбайт" & Chr(10)
sSayAboutInfo = sSayAboutInfo & " Файловая система : " & sInfoDrv(4) & Chr(10)
Else
'еслиDriver.IsReady = False
sSayAboutInfo = " Устройство не готово !" & Chr(10)
End If
MsgBox sSayAboutInfo, vbOKOnly, " Сведения об устройстве"
End Sub
|