Détection lecteur réseau

Question

Bonjour,

Je cherche à surveiller la connection ou déconnection d'un lecteur réseau "R:". Pour cela, dans un timer, je fais appel à une fonction qui me retourne si oui ou non le lecteur est connecté.

Le problème est justement cette fonction qui me dit si oui ou non R est connecté.
J'ai essayé avec un dir("R:"). Ca fonctionne, mais lorsque le le lecteur n'est pas connecté, le dir doit bien prendre 2 secondes. Je cherche une fonction qui me dit si le lecteur est connecté, mais rapidement. Car sinon, çà ralentit considérablement l'IHM.

Merci pour votre aide.

Mieux vaut se taire et passer pour un imbécile que de l'ouvrir et ne laisser aucun doute à ce sujet.

cs_JMO · Answer

Bonjour

Je ne sais pas si "EnumNetworkDrives" est + rapide .... à tester ....

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
For i = 0 to oDrives.Count - 1 Step 2
'    WScript.Echo "Lecteur " & oDrives.Item(i) & " = " & oDrives.Item(i+1)    msg "Lecteur " & oDrives.Item(i) & " " & oDrives.Item(i+1) &vbCrLf& msg
Next
msgbox msg

Set WshNetwork = Nothing
Set fso = Nothing

jean-marc

phoenix91720 · Answer

J'ai jamais utilisé WScript.Network
Il faut rajouter quoi comme référence... 

Mieux vaut se taire et passer pour un imbécile que de l'ouvrir et ne laisser aucun doute à ce sujet.

cs_JMO · Answer

Re,

Sorry pour la référence vb6....

une petite recherche m'a conduit à la réponse de "rvblog".
http://www.vbfrance.com/infomsg_REFERENCE-MANQUANTE_714542.aspx

jean-marc

Détection lecteur réseau

3 réponses

Votre réponse

Discussions similaires