Архив форумов ЦИТФорума

[murza]

Подскажите, кто знает, как получить список доступных дисков под BC++Builder 5. (дисководы, логические диски винта, CD-ROMы, сетевые и т.д.) И вообще, насколько я понимаю, в BCB нет компонента "список файлов", чтобы там значки были правильные, меню контекстные и т.д., как впрочем и компонента "дерево каталогов" (диалоги выбора и 16-битные компоненты не предлагать)

[murza]

Как это на BC++Builder 5 перевести?
Sub ShowDriveList
Dim fs, d, dc, s, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d in dc
s = s & d.DriveLetter & " - "
If d.DriveType = Remote Then
n = d.ShareName
Else
n = d.VolumeName
End If
s = s & n & vbCrLf
Next
MsgBox s
End Sub