С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
Pantalone
0 / 0 / 0
Регистрация: 09.05.2010
Сообщений: 233
1

Как взять список дисков и сколько места на них?

19.09.2010, 14:56. Просмотров 1289. Ответов 3
Метки нет (Все метки)

Как получить список жестких дисков и одновременно информацию о наличии места типа свободно/занято/используется ?
Желательно простое решение, а не сотни страниц кода.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.09.2010, 14:56
Ответы с готовыми решениями:

Как взять из файла INPUT.txt два числа, увеличить каждое из них на 1 и записать в OUTPUT.txt
Пишу последние года 2 на плюсах и C#. Сейчас появилась необходимость реализации...

Список локальных дисков
Как в ComboBOX загнать имеющиеся локальные диски, и при выборе одного из них...

Нужен контролл, который показывал бы раскриваюшийся список дисков и файлов
Знает кто нибуды где наити контрол который показывал бы раскриваюшися список...

Сохранить в блокноте список всех дисков со значение свободного места.
Создать сценарий в ОС Windows реализующий в консольном режиме диалог с...

Ввести произвольную последовательность из 20 символов и выяснить, - сколько среди них точек, сколько среди них пробелов, сколько среди них букв Д
Ввести произвольную последовательность из 20 символов и выяснить, - сколько...

3
Comanche
19.09.2010, 16:09 2
http://www.vbnet.ru/faq/showtopic.asp?id=336
http://www.vbnet.ru/faq/showtopic.asp?id=218
http://www.vbnet.ru/faq/showtopic.asp?id=224
Pantalone
0 / 0 / 0
Регистрация: 09.05.2010
Сообщений: 233
19.09.2010, 16:26  [ТС] 3
http://www.vbnet.ru/faq/showtopic.asp?id=224
Нули показывает.
А как насчет определение места в винде 98?
0
Dimax
30.09.2010, 20:40 4
Список дисков:
Код
Private Declare Function GetLogicalDrives Lib 'kernel32' () As Long
Private Sub Form_Load()
    Dim LDs As Long, Cnt As Long, sDrives As String
    LDs = GetLogicalDrives
    sDrives = 'Доступные диски:'
    For Cnt = 0 To 25
        If (LDs And 2 ^ Cnt) <> 0 Then
            sDrives = sDrives + ' ' + Chr$(65 + Cnt)
        End If
    Next Cnt
    'sDrives='Доступные диски: A C D...'
End Sub
Размер диска:
Код
Private Declare Function GetDiskFreeSpaceEx Lib 'kernel32' Alias 'GetDiskFreeSpaceExA' (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency, lpTotalNumberOfFreeBytes As Currency) As Long
Private Sub Form_Load()
    Dim r As Long, BytesFreeToCalller As Currency, TotalBytes As Currency
    Dim TotalFreeBytes As Currency, TotalBytesUsed As Currency
    Const RootPathName = 'C: '
    Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)
    Me.AutoRedraw = True
    Me.Cls
    Me.Print
    Me.Print ' Количество байтов:', Format$(TotalBytes * 10000, '###,###,###,##0') & ' bytes'
    Me.Print ' Свободных байтов:', Format$(TotalFreeBytes * 10000, '###,###,###,##0') & ' bytes'
    Me.Print ' Свободных байтов доступно:', Format$(BytesFreeToCalller * 10000, '###,###,###,##0') & ' bytes'
    Me.Print ' Total Space Used :', Format$((TotalBytes - TotalFreeBytes) * 10000, '###,###,###,##0') & ' bytes'
End Sub
Тип диска:
Код
Private Declare Function GetDriveType Lib 'kernel32' Alias 'GetDriveTypeA' (ByVal nDrive As String) As Long
Private Sub Form_Load()
    Select Case GetDriveType('C: ')
        Case 2
            Me.Print 'Removable'
        Case 3
            Me.Print 'Drive Fixed'
        Case Is = 4
            Me.Print 'Remote'
        Case Is = 5
            Me.Print 'Cd-Rom'
        Case Is = 6
            Me.Print 'Ram disk'
        Case Else
            Me.Print 'Unrecognized'
    End Select
End Sub
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.09.2010, 20:40

Сколько чисел натурального ряда, начиная с 1, нужно взять, чтобы произведение нечетных из них не превосходило
1. Сколько чисел натурального ряда, начиная с 1, нужно взять, чтобы...

Сколько нужно взять человек, что бы вероятность встретить среди них хотя бы одного дальтоника была не меньше 0.95
Каждый сотый человек дальтоник. Сколько нужно взять человек, что бы вероятность...

Список студентов. Определить, сколько среди них имеют одинаковые фамилии
Задание - Текст - это список студентов . Определить , сколько среди них имеют...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru