Как получить весь список дисков окна в выпадающем списке или любом другом элементе управления

Question

Привет, я работаю над домашним заданием и хочу заполнить список всех окон в выпадающем списке.и когда я выбираю имя диска из cambox, тогда папка / подпапка должна быть указана в списке внизу.

Я заполнил имя диска в поле со списком, вот мой код: введите описание изображения здесь

Private Sub Form_Load()
   Dim fso As FileSystemObject
   Dim d As Drive
   Dim dName As String
   Dim k As String
   Dim g As String
   Set fso = CreateObject("Scripting.Filesystemobject")
       For Each d In fso.Drives
           k = d.DriveLetter
           dName = dName & "," & d
        Next d
            g = Mid(dName, 2, Len(dName))
            cboDrive.RowSource = g
        End Sub

Answer 1

Это выведет все сетевые диски в ближайшее окно, так что вам просто нужно изменить бит Debug.Print, чтобы добавить его в ваш выпадающий список.

Sub All_Drives()

    Dim oNtwrk As Object
    Dim oDrvs As Object
    Dim x As Long

    Set oNtwrk = CreateObject("WScript.Network")
    Set oDrvs = oNtwrk.EnumNetworkDrives

    For x = 0 To oDrvs.Count - 1 'Step 2 'Might need step 2... can't remember.
        Debug.Print oDrvs.Item(x)
    Next x

End Sub