(Re) Bonjour a tous !
Voila mon problème :
quand j'execute un commande Shell sous VB6 pour créer un lecteur reseau tout va bien meme si le lecteur existe ; alors qu'evidement dans le console cette meme commande me donne une erreur !
Je voudrais donc pouvoir recuperer les erreur du Shell.
Voici comment je fais deja (ce qui marche pas) :
Public Sub MonterDisk()
Dim j
As Integer'pour le compteur
Err.Clear
'on vide le fichier d'erreur
j = 90
'correspondra a Z (65 a A)
'on essai de monter le lecteur reseau avec la lettre Z
Shell "NET USE " & Chr(j) & ":
\\Poste-serveur\i /PERSISTENT:NO", vbHide
If Err.Number <> 0
And j > 65
Then 'si ca marche pas
j = j - 1
'on passe a la lettre precedente
Shell "NET USE " & Chr(j) & ":
\\Poste-serveur\i /PERSISTENT:NO", vbHide
End If
lettre = Chr(j)
'on enregistre la lettre dans la variable (string) eponime
End SubLe Err.Number retourne un numero d'erreur dans l'execution du programme, pas dans l'execution d'une commande Shell.
Shell retourne un double si tout va bien et zero si ca s'est mal passe ; hors la commande s'execute mais ne fonctionne pas !
Je voudrais donc un fonction du genre : Err.Shell, a la place de Err.Number
Merci encore pour votre aide Et a bientot
PS : J'ai trouve des topics relatif a ce meme probleme mais ils etaient assez ancient et sans réel solutions pour la plus part, donc je relance !
_____________________________________
La vie est trop courte pour la passer a haïre.