Конференция VBStreets

**Arto** » 11.03.2005 (Пт) 11:24

Здравствуйте
Можно ли определить под какой буквой (F, E, и т.д) на том или ином компьютере находится CD Drive
Спасибо

**alibek** » 11.03.2005 (Пт) 11:27

Перебираешь все буквы и смотришь тип устройства.

**MagicMan** » 11.03.2005 (Пт) 11:47

Public Sub Detect_cd()
On Error Resume Next

Dim DriveType&
For n = 67 To 90
DriveType& = GetDriveType(Chr(n) + ":")
If DriveType& = DRIVE_CDROM Then msgbox("Вот оно!")
Next n

End Sub

**Alexander N. Samarin** » 11.03.2005 (Пт) 16:45

DRIVE_CDROM чему равно? А если не CDROM а какое - либо другое устройство, то какие константы нужны (и значения)?

**Cryonyx** » 11.03.2005 (Пт) 20:39

Чё вы паритесь :?:

Через FSO куда быстрее и не надо тотальный перебор делать

**HotKitten** » 12.03.2005 (Сб) 0:25

а я юзал перебор переделав этот исходник

**MagicMan** » 12.03.2005 (Сб) 10:06

FSO не везде работает.

**Cryonyx** » 12.03.2005 (Сб) 13:40

2 MagicMan
В смысле не везде?
Его даже хтмл-вирусы юзают налево и направо, причём работают как часы - сам у себя такое недавно выловил

Конференция VBStreets

CD ROM

CD ROM

FSO

Кто сейчас на конференции