Verifie si connecter sinon connecte a un lecteur reseau

Commenter

Contenu du snippet

ce code comporte des elements deja connu mais il permet d'aller chercher des informations situer sur un poste en reseau meme si on n'est pas encore connecter

il suffit de creer dans access une macro qui ne fait que d'execute la fonction connection et de mettre a la fin de la fonction ce qu'on veut executer une fois la connection realiser

le bout de code ci dessous permet d'attendre que la connexion est faite
While IfFIleExists() = 0
IfFIleExists
Wend

Source / Exemple : 


Public Function connection()
If IfFIleExists() = 0 Then
LigneCommande = "NET USE P: \\b398238\user"
retour = Shell(LigneCommande, vbNormalFocus)
End If
While IfFIleExists() = 0
IfFIleExists
Wend
'ici = ce que vous vouler faire une fois la connection realiser
End Function

Public Function IfFIleExists() As Long
On Error GoTo ErrX
Open "P:\test.txt" For Append As #1
Close #1
IfFIleExists = 1
Exit Function

ErrX:
IfFIleExists = 0
End Function

Conclusion :


je sais qu'il existe les fonctions WNetCancelConnection et l'autre sans avoir a utiliser du dos
mais le probleme que ca me posait etait que le code avait les valeur comme quoi la connection etait realiser mais celle ci ne s'etait pas entierement realiser don error

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (knico)