Вопрос № 21765: kak na text1.text mojno posmotret nomer HDD?...
Вопрос № 21.765
kak na text1.text mojno posmotret nomer HDD?
Отправлен: 04.06.2005, 16:51
Вопрос задал: Muhammedov Abdurohman (статус: Посетитель)
Всего ответов отправлено: 2
Отвечает: _Виталий
Здравствуйте, Muhammedov Abdurohman!
Наверное вы ищете это:
http://www.vbrussian.com/download.asp?Type=Example&ID=60
Ответ отправил: _Виталий (статус: 2-ой класс)
Отправлен: 04.06.2005, 18:07 Оценка за ответ: 4
Отвечает: Константин Ситников
Здравствуйте, 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 - корневой каталог.
Надеюсь, что достаточно понятно изложил.
Ответ отправил: Константин Ситников (статус: 1-ый класс)
Отправлен: 04.06.2005, 20:37 Оценка за ответ: 4