Discussion :

[neovbs]

J'ai fait un petit programme VBS pour copier des fichiers.
Parfois pendant l'exécution, la copie s'arrête (problème réseau wifi pendant la copie par exemple).

La gestion de l'erreur avec "On Error Resume Next" ne fonctionne pas :

Code :

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

1
2
3
4
On Error Resume Next
fs1.CopyFile fic_src, fic_dst
If err.Number <> 0 Then MsgBox( "erreur de copie"&err.Description)
On Error GoTo 0

Comment gérer cette erreur au milieu de la copie ou comment empêcher l'affichage de la fenêtre d'erreur windows et continuer le script ?

Merci pour vos réponses

[l_autodidacte]

Bonjour et BIENVENU sur DVP

L'affichage de ce que tu appelles Fenêtre Windows est provoqué par ton propre code
If err.Number <> 0 Then MsgBox("erreur de copie"&err.Description).
Peut-être que si on pose une condition pendant la copie, cela pourrait résoudre le problème :

Code :

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

1
2
3
Do While err.Number <> 0
   WScript.Sleep 500 ' attente de 0,5 seconde tant que l'erreur persiste
Loop

[neovbs]

Je me suis mal exprimé. La fenêtre d'erreur windows n'est pas celle provoqué par la ligne
If Err.Number <>0 Then mais celle-ci :



J'ai l'impression que la gestion de l'erreur par le script n'a aucun effet car l'erreur ne se produit pas au lancement de la copie mais pendant la copie.

Est-il possible d'éviter cette fenêtre "windows script host" ? Je peux gérer cette possible erreur en relançant la copie si le fichier n'est pas présent dans la destination. Si l'erreur persiste, j'arrête le script proprement.

[l_autodidacte]

Il nous faut la partie du code qui pose problème