| Вопрос: Как узнать сколько дисков в системе??? | Добавлено: 02.11.06 17:20 |
Автор вопроса:  HAB
|
| Как узнать сколько дисков в системе??? И соответвенно их буквы =)) |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Ra$cal ICQ: 8068014 Вопросов: 18 Ответов: 817 |
Web-сайт: Профиль | | #1 | Добавлено: 02.11.06 20:30 |
|
GetLogicalDriveStringsA
это логические. Если физические интересуют смотри пример вроде второй сверху в новых на главной странице |
||
|
Номер ответа: 2 Автор ответа: HAB  Вопросов: 18 Ответов: 57 |
Профиль | | #2 | Добавлено: 03.11.06 09:03 |
| меня интересуют логические но той командой я не знаю как пользоваться | ||
|
Номер ответа: 3 Автор ответа: HAB Вопросов: 18 Ответов: 57 |
Профиль | | #3 | Добавлено: 03.11.06 09:15 |
|
только без апи
можно microsoft script |
||
|
Номер ответа: 4 Автор ответа: AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #4 | Добавлено: 03.11.06 13:38 |
|
Сколько
Dim fso As FileSystemObject
Dim objdrives As Drives Set fso = CreateObject("scripting.filesystemobject" 
Set objdrives = fso.Drives Debug.Print objdrives.Count Буквы Set objFSO = CreateObject("Scripting.FileSystemObject"
Set colDrives = objFSO.Drives For Each objDrive in colDrives If objDrive.IsReady = True Then Wscript.Echo "  rive letter: " & objDrive.DriveLetter
Wscript.Echo "Free space: " & objDrive.FreeSpace Else Wscript.Echo " rive letter: " & objDrive.DriveLetter
End If Next |
||
|
Номер ответа: 5 Автор ответа: HAB Вопросов: 18 Ответов: 57 |
Профиль | | #5 | Добавлено: 03.11.06 14:02 |
|
Очень большое спасибо !!!
Выручили  ))
|
||
Страница: 1 |