Серийный номер жесткого диска

[KPEATOP]

Скажите плиззз, как узнать серийный номер диска "С:\" ?
Не винчестера, а именно диска "С:\"
Заранее сенкс.

[Leon_]

Так диск "С:\" и не диск вовсе, а всего лишь логический раздел на винчестере

[KPEATOP]

ну тогда значит серийный номер раздела С

[-=TsA=-]

ну тогда значит серийный номер раздела С

Только он изменяется при каждом форматировании

[-=TsA=-]

Copyright ©, 2000 'Азбука Visual Basic'. Все права защищены

Автор статьи - Армен Мнацаканян
(приводится с сокращениями)

Объектная модель FSO дает вашим прикладным программам способность создавать, изменять, перемещать, и удалить папки, или выяснять, если специфические папки существуют, и если так, то где. Это также дает возможность Вам получить информацию относительно папок, типа их имен, дат, когда они были созданы или в последний раз изменялись, и т.д.

Объектная модель FSO позволяет намного проще проводить обработку файлов. При обработке файлов, ваша основная цель состоит в том, чтобы сохранить данные в области - и ресурсо-эффективном, легко доступном формате. Вы сможете создавать файлы, вставлять и изменять(заменять) и выводить (считывать) данные

Объектная модель FSO, которая содержится в библиотеке типов Scripting type library (Scrrun.Dll), поддерживает создание текстового файла и манипулирование им через объект TextStream. Однако это  не поддерживает создание или манипулирование двоичными файлами. Чтобы управлять двоичными файлами, используйтся команда Open с бинарным флагом. 

Объекты Файловой системы

Объектная модель FSO имеет следующие объекты:

Drive(Дисковод)

Позволяет Вам получить информацию относительно дисководов присоединенных к системе, их типа, количества доступного участка памяти, их обозначения, и т.д. Обратите внимание, что "дисковод" не обязательно жесткий диск. Это может быть дисковод CD-ROM, вертуальный диск, и т.д. Также не обязательно, чтобы дисководы были физически присоединенными к системе; они могут быть также логически подсоединены через локальную сеть.

Folder(Папка)

Позволяет Вам создавать, удалять, или перемещать папки, плюс запрос системы относительно их имен, путей, и так далее.

Files(Файлы)

Позволяет Вам создавать, удалять, или перемещать файлы, плюс запрос системы относительно их имен, путей, и так далее.

FileSystemObject

Основной объект группы, с полными методами, которые позволят Вам создать, удалять, получать информацию обовсем, и вообще, управляет дисководами, папками, и файлами. Многие из методов, связанных с этим объектом дублированы в других объектах.

TextStream

Дает возможность Вам читать и писать текстовые файлы.


Получение информации относительно Drives (Дисководов)

Объект Drive позволяет Вам получать информацию относительно различных дисководов, присоединенных к системе или физически или через сеть. Свойства позволяют Вам получить информацию относительно:
Полный размера дисковода в байтах (свойство TotalSize);
Количество доступного свободного места на дисководе в байтах (свойства  AvailableSpace или FreeSpace);
Буквенного обозначения дисковода (свойство DriveLetter);
Какого типа дисковод, сменный, фиксированный, сетевой, CD-ROM или RAM (свойство DriveType);
Серийный номер дисковода (свойство SerialNumber);
Тип файловой системы использования дисковода FAT, FAT32, NTFS, и т.д (свойство FileSystem);Является ли дисковод доступен для использования (свойство IsReady);
Имя общих и/или Имя объемa (свойства ShareName и VolumeName);
Путь или корневую папку дисковода (свойства Path и RootFolder);
Пример использования объекта Drive (Дисковода) 

Пример ниже показывается, как использовать объект Drive, чтобы получить полную  информацию относительно дисковода. Не забудьте, что в следующем коде Вы не будете видеть ссылку к фактическому объекту Drive, достаточно, что Вы используете метод GetDrive чтобы получить ссылку для существующего объекта Drive (в этом случае - drv): 

Код: Выделить всё

Private Sub Command3_Click()
   Dim fso As New FileSystemObject, drv As Drive, s As String
   Set drv = fso.GetDrive(fso.GetDriveName("c:"))
   s = "Drive " & UCase("c:") & " - "
   s = s & drv.VolumeName & vbCrLf
   s = s & "Total Space: " & FormatNumber(drv.TotalSize / 1024, 0)
   s = s & " Kb" & vbCrLf
   s = s & "Free Space: " & FormatNumber(drv.FreeSpace / 1024, 0)
   s = s & " Kb" & vbCrLf
   MsgBox s
End Sub


[KPEATOP]

Спасбо -=TsA=- .
Если при каждом форматировании серийный номер раздела С меняется, то тогда наверно лучше обращаться к серийному номеру винчестера. А как обратиться к винчестеру ?

[tyomitch]

Посмотри http://vbrussian.com/Controls.asp?ID=10