[Resolvido]Listar unidades mapeadas num combobox

Prezados

Bom dia

Tem algum comando do access que me mostra o nome de uma pasta mapeada em meu computador?
Preciso da lista de pastas mapeadas em meu computador numa combobox.

Função que captura as unidades da máquina

Código:

Public Function fncLocalDisk() As String
Dim objWMIService As Object
Dim disk
Dim s As String
Set objWMIService = GetObject("winmgmts://localhost")
For Each disk In objWMIService.ExecQuery("select * from Win32_LogicalDisk")
    s = s & disk.DeviceID & vbCrLf
Next
If Len(s) > 1 Then fncLocalDisk = s
 
Set objWMIService = Nothing
End Function

código que exibe o resultado

Código:

msgbox fncLocalDisk

basta adaptar

Booa Ivan Jr.

Porém só preciso que ela me traga o nome do caminho de uma pasta do servidor, eu tenho uma pasta aqui mapeada com o caminho: \\vbr008002-009

Precisava que ela me trouxesse essa parte \\vbr008002-009

Código:

...
s = s & disk.DeviceID & vbCrLf
...

Vá trocando a linha acima por

Código:

...
s = s & disk.Description & vbCrLf
...

ou

Código:

...
s = s & disk.Name & vbCrLf
...

ou

Código:

...
s = s & disk.VolumeName & vbCrLf
...

ou

Código:

...
s = s & disk.Caption & vbCrLf
...

Basta ir testando a função e ver qual deles retorna a parte que você quer, depois é só usar a função na propriedade RowSource da sua combobox.
Não tenho nenhum disco mapeado para testar e dizer qual destes seria o correto.

Consegui, muito obrigado cara !
Desculpe pela demora.

O fórum agradece o retorno. Sucesso.