[Resolvido]Restaurar Unidade Mapeada em Rede

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

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

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

Grato,

Eduardo Alves

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

Muito grato pela informação e pela generosidade.

Eduardo Alves

Fico feliz.

Obrigado pelo retorno o forum agradece.