Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 69
от 09.06.2005, 17:00

Администратор:Калашников О.А.
В номере:Вопросов: 1, Ответов: 2


Вопрос № 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


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

Яндекс


Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Отписаться
Вспомнить пароль

В избранное