| Вопрос: --> Все драйвы на компе <-- | Добавлено: 26.04.06 19:01 |
Автор вопроса:  AgentFire | ICQ: 192496851 |
|
Если кто знает, как получить список всех драйвов в Моем Компутере, с типами самих устройств (HDD, FDD, CD-ROM, DVD-RW... и т.д.) плз подскажите как или хотябы линку дайте, где можно это найти.
кто меня пошлет... В поисковых системах люди не находят а ищут, я же прошу место где эта инфа есть. Плз, откликнитесь. |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  astoro ICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #1 | Добавлено: 26.04.06 20:18 |
|
http://www.freevbcode.com/ShowCode.Asp?ID=7395
не проверял но вроде по описанию похоже. |
||
|
Номер ответа: 2 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #2 | Добавлено: 26.04.06 22:01 |
все равно пасиба! 
|
||
|
Номер ответа: 3 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #3 | Добавлено: 26.04.06 22:08 |
|
ЭЭэээээ...?
VB.NET..? какой наф VB.NET..? ;/ У мень стоит VS седмая... но нужно уже не седьмую, там еще выше версию хотит! А вообще я хотел бы на шестом
|
||
|
Номер ответа: 4 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #4 | Добавлено: 27.04.06 01:22 |
|
GetLogicalDrives
GetDriveType |
||
|
Номер ответа: 5 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #5 | Добавлено: 27.04.06 08:03 |
|
УПС, извиняюсь, не доглядел.
там вроде напимано, что мол АПИ использутеся. Может попробовать портировать в вб6? |
||
|
Номер ответа: 6 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #6 | Добавлено: 27.04.06 11:33 |
|
Ну, к примеру, слегка измененный пример из API-Guide
Option Explicit Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Private Sub Form_Load() Me.AutoRedraw = True Dim i As Long For i = Asc("A"  To Asc("Z"
Select Case GetDriveType(Chr$(i) & ":"
Case 2 List1.AddItem Chr$(i) & ":Removable" Case 3 List1.AddItem Chr$(i) & ":Drive Fixed" Case Is = 4 List1.AddItem Chr$(i) & ":Remote" Case Is = 5 List1.AddItem Chr$(i) & ":Cd-Rom" Case Is = 6 List1.AddItem Chr$(i) & ":Ram disk" Case Else 'List1.AddItem Chr$(i) & ":Unrecognized" End Select Next i End Sub Это простейший вариант, но не есть корректный. Ибо в случае с неопознанным девайсом он просто не отображается. Наиболее правильный вариант - адаптировать код в соотв. с ответом N4. |
||
|
Номер ответа: 7 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #7 | Добавлено: 27.04.06 14:46 |
|
Наиогромнейшее ПАСИБА!!!
Выручили lol и sharp! |
||
Страница: 1 |