![]() |
![]() ![]() v.5.2011.12.30 |
Хитрый стрелок экранов, Делай и делись снимками экранов! |
|
Visual Basic 5.0/6.0 - Файлы и папкиВсе примеры / Файлы и папкиПолучить объем свободного места на HDD
Автор: Неизвестно | добавлено: 06.03.2010, 12:03 | просмотров: 2101 (1+) | комментариев: 0 | рейтинг:
Пример показывает, как программно можно узнать объем свободного пространства на жестком диске.
![]() Код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 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все примеры этого автора (всего: 45)
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все похожие примеры (всего: 75)
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|