Страница: 1 |
Используй FileSystemObject Dim FSO As New FileSystemObject, drv As Drive Private Sub Command1_Click() MsgBox "Свободно места: " & FormatNumber(drv.FreeSpace / 1024, 0) & " КБайт" End Sub System.Management.ManagementObject("Win32_LogicalDisk.DeviceID=\"C:\"").Get System.Management.ManagementObject.Properties Retrieves information about the specified disk, including the amount of free space on the disk. Have a nice day Страница: 1 |
Вопрос: Free Space (HDD)
Добавлено: 01.02.04 17:27
Автор вопроса: Smith | ICQ: adamis@list.ru
Как узнать сколько свободного места на диске?
Ответы
Всего ответов: 4
Номер ответа: 1
Автор ответа:
KAM
ICQ: 190197618
Вопросов: 25
Ответов: 97
Профиль | | #1
Добавлено: 01.02.04 17:35
Номер ответа: 2
Автор ответа:
KAM
ICQ: 190197618
Вопросов: 25
Ответов: 97
Профиль | | #2
Добавлено: 01.02.04 17:43
Номер ответа: 3
Автор ответа:
Maxik
Вопросов: 58
Ответов: 201
Профиль | | #3
Добавлено: 02.02.04 06:10
Я вот тоже спрашивал, и тоже fso предлагали.
Смотри тему ДИСКИ на форуме. Я там на свой же вопрос подробно отвечаю
))
Номер ответа: 4
Автор ответа:
⊗WaX⊗
Вопросов: 26
Ответов: 325
Web-сайт:
Профиль | | #4
Добавлено: 03.02.04 21:49