Discussion :

[jlvalentin]

Bonjour à tous...
Bon, voilà mon souci. J'ai une application qui doit utiliser une database située sur un lecteur réseau.
Il arrive parfois que les utilisateurs n'ait pas accés à ce lecteur. Et alors, l'application se plante sur l'instruction suivante :

Code :

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

   If Dir(StrGloNomBase, vbHidden) = "" Then

Pour info, StrGloNomBase contient le nom complet de ma base de données, avec le path... En fait, ca donne un truc du style :

Z:\DATAS\Mabase.mdb

Est-ce que vous sauriez comment éviter le plantage ? Y a t'il une instruction qui me permette de vérifier qu'un lecteur réseau est bien "Connecté" ?

D'avance merci...

Jean-Luc

[pc75]

Bonjour,

Tu peux utiliser le gestionaire d'erreurs :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
...
on error resume next
Chemin = Dir(StrGloNomBase, vbHidden)
if err <> 0 then
   select case err.number
      case ??
         msgbox "Vous n'avez pas accès à ce lecteur"
      case else
         msgbox "Erreur"
   end select
end if
on error goto 0

Fais un msgbox err.number pour récupérer le numéro des erreurs possibles

[jlvalentin]

Merci, c'est ce que j'ai fait.
Cependant, je n'aime pas trop cette instruction "On Error Resume Next".
En effet, si plus loin dans le script une erreur se produit, elle n'est plus détectée automatiquement..
Et donc, il va me falloir faire un On Error Goto <label> et gerer les erreurs possible dans toute ma procédure...
J'esperais une fonction pour tester cela ou une dll quelconque...

Mais bon, tant pis...

Merci quand meme pour ton aide.

[Delbeke]

Un

Code :

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

On Error Goto 0

arrête le traitement d'erreur

[Vld44]

windows est hyper long à détecter qu'un lecteur réseau est offline, il met 10 plombes à te le dire :/

S'il existe un moyen de faire autrement je suis preneur (ping ?)

[J.Michel]

Bonjour,

Pour ma part, et afin de ne pas gérer les erreurs de toutes mes procédures, j'ai fait une fonction pour tester juste l'existence d'un répertoire:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'Test Existence répertoire
Public Function DirExist(NomDir As String) As Boolean
    'Gestion d'erreur
    On Error Resume Next
 
    DirExist = False
    RetDir = Dir(NomDir, vbDirectory)
    DirExist = RetDir <> ""
End Function

Mais ça reste un "resume next"