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 - корневой каталог.
Надеюсь, что достаточно понятно изложил.