Verifie si connecter sinon connecte a un lecteur reseau

0/5 (6 avis)

Snippet vu 7 243 fois - Téléchargée 38 fois

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

Ajouter un commentaire Commentaires
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
7 oct. 2007 à 23:04
Salut,

Et si la connection ne se fait pas, tu comptes boucler sans fin jusqu'à l'arrêt du PC ?
La ligne de commande pourrait pointer vers une partition inexistante (défaut de l'avoir mis en dur dans le code) et dans ce cas ...
Prend un garde fou (ex: Timer) pour passer quand même à la suite (ou quitter proprement) si le "net use" n'aboutit pas.

Arrange-toi pour que IfFIleExists() renvoie un booléen. Ca t'évitera de faire plein de tests pour vérifier qu'il vaut 0.
jolicoeur3 Messages postés 1 Date d'inscription samedi 15 octobre 2005 Statut Membre Dernière intervention 7 octobre 2007
7 oct. 2007 à 22:44
waw j'ai tomber amoureux dans ce code . c'est tres facile que d'autre
merci bcp mon frere
Shendoo Messages postés 55 Date d'inscription vendredi 12 novembre 2004 Statut Membre Dernière intervention 1 juin 2007
6 janv. 2007 à 14:16
respect le code de ton voisin ou alors propose mieux que ce que tu pu en faire ;)
rdr400 Messages postés 1 Date d'inscription dimanche 6 février 2005 Statut Membre Dernière intervention 14 février 2005
14 févr. 2005 à 18:27
De toutes façons, tous les blaireaux qui font des fautes disent que ça n'a pas d'importance.
En réalité, ils ne savent pas faire autrement et, quand ils ont un doute (!), ils font une grosse faute pour masquer, derrière un semblant d'ironie, leur énorme connerie.

Bye
cs_Flyeur Messages postés 8 Date d'inscription samedi 31 août 2002 Statut Membre Dernière intervention 24 novembre 2011
31 janv. 2005 à 17:26
je comprend pas comment on peu parler comme tu fait ...
il fait des fautes et alors ?
le but ici c'est d'apprendre via des codes sources alors si tu t'arrete au fautes d'horthographe tu va pas apprendre grand chose...
Afficher les 6 commentaires

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.