Jag håller på med ett program som kollar vilka som är inloggade i mitt lilla nätverk hemma. Jag har anslutit en nätverksenhet till en dator och gett den Z:\.

Programmet skall kolla om Z:\ Uppkopplad\ finns men om jag använder koden nedan får jag error pga att nätverksenheten finns ju i min utforskare men det går ju inte att läsa från den p.g.a. att den andra datorn inte är på. Jag vill ju att mitt kommando bara skall utföras om den andra datorn är på.

Const ATTR_DIRECTORY = 16
If Dir$ Z:\Inloggad\", ATTR_DIRECTORY) <> "" Then
mitt kommando
End If

Ett enkelt sätt att komma förbi problemet är:

Private Sub Command1_Click()
On Error GoTo Fel
Const ATTR_DIRECTORY = 16
If Dir$("Z:\Inloggad\", ATTR_DIRECTORY) <> "" Then
MsgBox "Träff!!!"
End If
Exit Sub
Fel:
MsgBox "Ej träff"
End Sub