VPF::Info о диске - Форум программистов

ProgramerForever

Дата 17.3.2007, 12:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5

Привет!
Мне нужно получить информацию о диске из VB:
>>Метка диска
>>Свободно байт
>>Всего байт
>>Серийный номер
>>Тип (Hard, CDRom, Flash и т.д.)
>>Ну и всё в таком духе...

bom

Дата 17.3.2007, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6

API:
GetVolumeInformation
GetDiskFreeSpace

Или через FSO:
Свойства Объекта Drive

Пример можно , см поиск

Kirill89

Дата 17.3.2007, 17:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 501
Регистрация: 17.10.2006
Где: Питер

Репутация: 3
Всего: 4

Готовый код:

Код


'Модуль
Public Declare Function GetVolumeInformation Lib "kernel32" _
   Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _
   ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
   lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
   lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _
   ByVal nFileSystemNameSize As Long) As Long

'Проект
Public Function GetSerialNum(Path as String) As Long
Dim RootPathName As String, _
    VolumeNameBuffer As String, _
    VolumeNameSize As Long, _
    VolumeSeialNumber As Long, _
    MaxComponentLength As Long, _
    FileSystemFlags As Long, _
    FileSystemNameBuffer As String, _
    FileSystemNameSize As Long
RootPathName = Path 'например "C:/" 
GetVolumeInformation RootPathName, _
                    VolumeNameBuffer, _
                    VolumeNameSize, _
                    VolumeSeialNumber, _
                    MaxComponentLength, _
                    FileSystemFlags, _
                    FileSystemNameBuffer, _
                    FileSystemNameSize
GetSerialNum = VolumeSeialNumber ' Получаем необходимый параметр
End Function

--------------------

GSteam[dot]info

ProgramerForever

Дата 18.3.2007, 11:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5

FSO.....
Как-то не сообразил сразу...

Всем спасиБО! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »