Использованные буквы....

[Шурик]

Здрасте люди....
Вот пишу оболочку к Dos - эмулятору CD
Как узнать какие буквы под названия дисков уже заняты
Только если можно, то без обращения к ним....

[Sirik]

Есть один способ (правда туповатый немного):
добавляешь компонент DriveListBox и ...

Код: Выделить всё

Option Explicit

Private Sub Command1_Click()
    Dim I As Long
   
    For I = 0 To Drive1.ListCount - 1
        MsgBox Drive1.List(I)
    Next
   
End Sub


Есть одно но, отображаются также и сетевые диски (оно же и к лучшему)

[natcap]

а FileSystemObject можно использовать?
Если да, то
FSys.Drives.Count - число дисков
FSys.Drives(номер).DriveLetter - буква диска...

[Шурик]

Конечно FSO особо не нужно, но все равно бальшое спасибо)))

[Шурик]

А как узнать, что за устройство типа CD или дисковод???
Ведь я не могу сделать из папки виртуальный CD, если папка находится на FDD или на CD

[natcap]

fsys.Drives(i).DriveType

[Шурик]

Хмм... как я понял придется FSO использовать

[Ennor]

Не, почему, можно и API обойтись... Только геморнее, конечно.

[natcap]

YES ))
По крайней мере как через объект драйвера ээто сделать я не нашла...
но опять же он тебе в твоей задаче точно не повредит... работать с файлами и папками через него удобнее

Ennor, а оно надо, с апи то гамороиться? ))

[Шурик]

2Ennor:
Если знаешь как, тогда колись

2natcap:
спасибо, умница))))))))))

[Ennor]

Ну а догадаться? Аналогия-то примитивная - GetDriveType(). Сидит в kernel32...

[Шурик]

нет под рукой ни каких средств для догадывания)))