MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Listar unidades mapeadas num combobox

    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 08/01/2017

    [Resolvido]Listar unidades mapeadas num combobox Empty [Resolvido]Listar unidades mapeadas num combobox

    Mensagem  Edgar Massa em Qua 25 Set 2019, 11:45


    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.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 21/11/2016

    [Resolvido]Listar unidades mapeadas num combobox Empty Re: [Resolvido]Listar unidades mapeadas num combobox

    Mensagem  DamascenoJr. em Qua 25 Set 2019, 18:33

    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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 08/01/2017

    [Resolvido]Listar unidades mapeadas num combobox Empty Re: [Resolvido]Listar unidades mapeadas num combobox

    Mensagem  Edgar Massa em Qui 26 Set 2019, 12:26

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 21/11/2016

    [Resolvido]Listar unidades mapeadas num combobox Empty Re: [Resolvido]Listar unidades mapeadas num combobox

    Mensagem  DamascenoJr. em Qui 26 Set 2019, 17:21

    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.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 08/01/2017

    [Resolvido]Listar unidades mapeadas num combobox Empty Re: [Resolvido]Listar unidades mapeadas num combobox

    Mensagem  Edgar Massa em Ter 15 Out 2019, 10:17

    Consegui, muito obrigado cara !
    Desculpe pela demora.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    Registrado : 21/11/2016

    [Resolvido]Listar unidades mapeadas num combobox Empty Re: [Resolvido]Listar unidades mapeadas num combobox

    Mensagem  DamascenoJr. em Qua 16 Out 2019, 19:08

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: Dom 29 Nov 2020, 14:18