Discussion :

[lito74]

Bonjour,
Comment faire pour tester si la connexion d'un lecteur réseau est activé ou pas. J'ai bien trouvé dans la FAQ comment ouvrir la fenêtre de connexion, mais je souhaiterai avant de l'ouvrir, faire le test.
Merci

[LedZeppII]

Bonjour,

Pour tester si une lettre de lecteur de disque est valide ....

A mettre dans la partie déclaration d'un module de code:

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare Function GetLogicalDrives Lib "kernel32.dll" () As Long

A mettre dans le même module de code:

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function IsDrive(d As String)
Dim res As Long, drv As Long
' A=0x00000001, B=0x00000002, C=0x00000004, ...
 d = UCase(d): drv = Asc(Left(d, 1)) - 65
 drv = 2 ^ drv
 res = GetLogicalDrives
 If (res And drv) <> 0 Then IsDrive = True Else IsDrive = False
 
End Function

Exemple:

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim strLettre as string
strLettre = "W"
If Not IsDrive(strLettre) then MsgBox "Pas de lecteur " & strLettre

En espèrant avoir compris ta question.
A+