Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Евгений Ипатов -

Visual Basic 5.0/6.0 - Железо и устройства

Все примеры / Железо и устройства

О жестком диске

Автор: Евгений Ипатов | добавлено: 06.03.2010, 12:10 | просмотров: 2226 (1+) | комментариев: 0 | рейтинг: *x10
Чтобы узнать размер жёсткого диска(Общий объём, свободное и занятое место) нужно добавить кнопку и приведенный в этом примере код.

Код

Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency, lpTotalNumberOfFreeBytes As Currency) As Long
Private Declare Function StrFormatByteSize64 Lib "SHLWAPI.DLL" Alias "StrFormatByteSize64A" (ByVal dw As Currency, ByVal pszBuf As String, cchBuf As Long) As Long

Dim bbfreeUser As Currency
Dim bbtotal As Currency
Dim bbfree As Currency

Private Sub Command1_Click()
Call GetDiskFreeSpaceEx("C:\", bbfreeUser, bbtotal, bbfree)
' Ёмкость диска (Байт)
bbtotal = bbtotal * 10000

' Свободного места на диске
bbfree = bbfree * 10000

' Свободного места на диске для текущего пользователя
bbfreeUser = bbfreeUser * 10000

' Для более наглядного отображения полученных данных
' (Например: 120 ГБ вместо 128849018880 Байт)
' воспользуемся функцией StrFormatByteSize64 (в FormatByteSize)
Print "Ёмкость: " & vbTab & FormatByteSize(bbtotal)
Print "Свободно: " & vbTab & FormatByteSize(bbfree)
Print "Свободно пользователю: " & vbTab & FormatByteSize(bbfreeUser)
End Sub

Private Function FormatByteSize(Bytes As Currency) As String
Dim strBuff As String * 256
nRet = StrFormatByteSize64(Bytes / 10000, strBuff, 255)
FormatByteSize = Left(strBuff, InStr(1, strBuff, Chr$(0)) - 1)
End Function
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Евгений Ипатов

Нет информации об авторе...

См. также:
Профиль автора
Евгений Ипатов
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Люди на Kbyte.Ru
Реклама
Счетчики