VERIFICAR STATUS DA REDE

TRTNCG 06/06/2005 11:09:12
#87230
Oi pessoal será que vc poderiam me ajudar, por exemplo o meu sistema funciona me rede, só que mapeio a unidade, gostaria de saber se tem como verificar se o status da unidade o qual o atalho do programa está associado, se tiver ele puxa o splash do programa se não vou mostrar uma mensagem dizendo que a unidade está desconectada
OCTOPUS 06/06/2005 13:24:06
#87258
Se você está utilizando um atalho para o programa e este está um uma unidade mapeada, que por sua vez não está disponível, o proprio windows se encarregará de informar que a unidade não está conectada.

Espero ter ajudado.

[]'s
LCSD 06/06/2005 13:52:12
#87261 Resposta escolhida
tente fazer esta "gambiarra", talvez dê certo.

  
Dim Fs As New FileSystemObject
Dim DriveE As Drive
On Error GoTo Erro_Drive

Set DriveE = Fs.GetDrive("E:\")
If Not DriveE.IsReady Then
    MsgBox "A unidade E não esta pronta!", vbCritical, "Drive E"
Else
    MsgBox " A Unidade E está pronta !", vbCritical, "Drive E"

End If
Exit Sub
'continuar csdigo

Set Fs = Nothing

Erro_Drive:
    If Err.Number = 68 Then
        Resume Next
    ElseIf Err.Number = 91 Then
        Resume Next
    End If


PS: Pra isso funcionar, é necessário fazer referência ao Microsoft Script RunTime
Tópico encerrado , respostas não são mais permitidas
Voltar