Консультация № 21765
04.06.2005, 16:51
0.00 руб.
0 2 2
kak na text1.text mojno posmotret nomer HDD?

Обсуждение

давно
Профессионал
848
1596
04.06.2005, 18:07
общий
это ответ
Здравствуйте, Muhammedov Abdurohman!
Наверное вы ищете это:
http://www.vbrussian.com/download.asp?Type=Example&ID=60
Неизвестный
04.06.2005, 20:37
общий
это ответ
Здравствуйте, Muhammedov Abdurohman!
Да запросто! Достаточно создать объект и вывести можно любую информацию о диске. Закиньте на форму элемент Text1, установите значение MultiLine в True. Итак:
‘Создаем объект FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Drv = FSO.GetDrive(FSO.GetDriveName("C:"))
Text1 = "Серийный номер " & Drv.SerialNumber & vbCrLf
‘Получить также можно и много другой информации:
Text1 = Text1 & "Полный размер в MB " & Drv.TotalSize
Text1 = Text1 & "Свободное место, MB " & Drv.FreeSpace
Также можно получить:
DriveLetter - имя диска
DriveType - тип диска
FyleSystem - тип файловой системы
IsReady - о доступности к диску
Path - корневой каталог.
Надеюсь, что достаточно понятно изложил.
Форма ответа