Verifie si connecter sinon connecte a un lecteur reseau

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 759 fois - Téléchargée 35 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
19
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

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

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

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

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...

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.