MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Restaurar Unidade Mapeada em Rede

    avatar
    eduas65
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 30/10/2012

    [Resolvido]Restaurar Unidade Mapeada em Rede Empty [Resolvido]Restaurar Unidade Mapeada em Rede

    Mensagem  eduas65 em 10/10/2019, 21:16

    Caros, peço a ajuda sobre se é possível, e neste caso como restaurar com VB, uma conexão com um outra pasta de computador na rede que por questões diversas tenha se desativado;

    ex:
    - um computador (aonde estão os arquivos) que não estava ligado no momento em que o computador do usuário que quer consultar o BD foi ligado, neste caso a conexão/mapeamento não se realiza, ficando com "X" se verificarmos no explorer do windows, impossibilitando acesso ao BD.

    - Caso o usuário tente acessar mais tarde, a conexão continua inativa embora o computador aonde está a base já tenha sido ligado.    

    A necessidade seria código que restaurasse a conexão sem o usuário ter de ir ao explorer para tal.

    Agradeço desde já qualquer ajuda.

    Eduardo Alves
    Anexos
    [Resolvido]Restaurar Unidade Mapeada em Rede Attachmentpag rede.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (4 Kb) Baixado 7 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Restaurar Unidade Mapeada em Rede Empty Re: [Resolvido]Restaurar Unidade Mapeada em Rede

    Mensagem  JPaulo em 14/10/2019, 12:52

    Olá;

    Deve ser mais ou menos isto;

    Código:
    Function MapeaDrive()
    Dim WshNetwork As Object

    'Cheka se existe drive P:\ mapeada
    If Len(Dir("P:\", vbDirectory)) = 0 Then
      'Se não existir, mapeia
        Set WshNetwork = CreateObject("WScript.Network")
        On Error Resume Next
        'remove para voltar a mapear
        WshNetwork.RemoveNetworkDrive "P:", True
        On Error Resume Next
        'mapea de novo
        WshNetwork.MapNetworkDrive "P:", "\\srvcacs\Documentacao$"
        Set WshNetwork = Nothing
    End If

    End Function


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Restaurar Unidade Mapeada em Rede Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Restaurar Unidade Mapeada em Rede Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Restaurar Unidade Mapeada em Rede Folder_announce_new Instruções SQL como utilizar...
    avatar
    eduas65
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 30/10/2012

    [Resolvido]Restaurar Unidade Mapeada em Rede Empty Restaurar Unidade Mapeada em Rede

    Mensagem  eduas65 em 14/10/2019, 13:06

    Prezado João Paulo, agradeço a boa vontade. Vou testar ao final do dia e retorno sobre o resultado.

    Grato,

    Eduardo Alves
    avatar
    eduas65
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 30/10/2012

    [Resolvido]Restaurar Unidade Mapeada em Rede Empty Restaurar Unidade Mapeada em Rede

    Mensagem  eduas65 em 15/10/2019, 08:47

    Prezado João Paulo, como em regra, suas soluções funcionam de primeira.

    Muito grato pela informação e pela generosidade.

    Eduardo Alves
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Restaurar Unidade Mapeada em Rede Empty Re: [Resolvido]Restaurar Unidade Mapeada em Rede

    Mensagem  JPaulo em 15/10/2019, 16:43

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Restaurar Unidade Mapeada em Rede Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Restaurar Unidade Mapeada em Rede Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Restaurar Unidade Mapeada em Rede Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado

    [Resolvido]Restaurar Unidade Mapeada em Rede Empty Re: [Resolvido]Restaurar Unidade Mapeada em Rede

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2019, 22:44