Pb copie de fichier durant l'éxécution d'un script VBS

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:

---

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

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:

---

1 2 3

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

---

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 :

Pièce jointe 154392

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.

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