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

Visual Basic 5.0/6.0 - Файлы и папки

Все примеры / Файлы и папки

Получить объем свободного места на HDD

Автор: Неизвестно | добавлено: 06.03.2010, 12:03 | просмотров: 2189 (1+) | комментариев: 0 | рейтинг: *x1
Пример показывает, как программно можно узнать объем свободного пространства на жестком диске.

Код

Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long

Private Sub Command1_Click()
 Dim free_Space As Long
 Dim checkDrive As String
 checkDrive = "C:"
 ChDrive checkDrive
 Dim numSectorsPerCluster As Long
 Dim numBytesPerSector As Long
 Dim numFreeClusters As Long
 Dim numTotalClusters As Long
 Dim success As Boolean
 success = GetDiskFreeSpace(checkDrive & "\", numSectorsPerCluster, numBytesPerSector, numFreeClusters, numTotalClusters)
 free_Space = numSectorsPerCluster * numBytesPerSector * numFreeClusters
 MsgBox "На диске " & checkDrive & " свободно " & Format(Str$(free_Space / 1024), "###,### ") & " Кб"
End Sub
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Неизвестно

Нет информации об авторе...
Неизвестно
Последние комментарии (всего: 0)

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


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

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