Copie de fichier avec un MsgBox

Bonjour à toute et à tous

je reviens vers vous pour une toute nouvelle questions

lors de la copie d'un fichier, ou d'un dossier, est il possible de faire apparaitre un MsgBox pour sgnaler la fin de la copie

merci par avance de vos réponse

Code:

---

1 2 3

dim FSO set FSO = CreateObject("Scripting.FileSystemObject" ) FSO.CopyFile "C:\Apps\Media\Movies\action\adieu la pluie.xspf" , "E:\Sauvegarde\"

---

Ajoute une ligne de code; par exemple : If fso.FileExists("E:\Sauvegarde\adieu la pluie.xspf") And Err = 0 Then MsgBox "Fichier copié avec succès."

Bonjour L_Autodidacte c'est toujours un plaisir

sa fonctionne impeccablement bien.

problème Resolu

une dernière question si je puis permettre, admettons que je veux qu'il execute un script à la fin de la copie c'est possible?

encore merci L_Autodidacte.

Oui tant qu'on n'a pas arrêté Wscript.exe avec l'instruction : Wscript.Quit

Salut Angelus1753 et l_autodidacte

Une petite amélioration pour les très gros fichiers

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub FileCopy(Src,Dest) dim FSO, f, PoidsFichier set FSO = CreateObject("Scripting.FileSystemObject" ) Set f = FSO.GetFile(Src) PoidsFichier = f.size Set f = Nothing   FSO.CopyFile Src, Dest Do If FSO.FileExists(Dest) And Err = 0 Then If FSO.GetFile(Dest).size >= PoidsFichier Then exit do End If loop   Set FSO = Nothing End Sub   FileCopy "C:\MesProgs\Programation de ma Radio\chirp-daily-20190718-installer.exe","C:\MesProgs\Programation de ma Radio\chirp-daily-20190718-installerCOPIE.exe" Msgbox "traitement fini"

---

Si la copie est très longue (plusiers 10 Mo), FSO.FileExists(Dest) ainsi que Err = 0 peuvent être égal à True alors que le fichier n'est pas complétement copié.
Le fait de comparer le poids du fichier source avec celui du fichier destination te garantie que le fichier venant d'être copié l'est complétement, ce qui permet éventuellement de le manipuler (lancer, modifier ...) en sortie de la sub FileCopy

Bonjour ProgElect, content de vous revoir.

il y a une erreur en ligne 8

Il doit y avoir une erreur dans ton adaptation du chemin et nom de fichier soit dans Src soit dans Dest, car un copier/coller du code soumis n'a pas créé d'erreur en le ré essayant.

effectivement vous aviez raison, j'avais pas bien renseigner le répértoire de destinaion.

quoi qu'il en soit un grand merci à vous messieurs

une efficaité toujours aussi efficace

Merci L_autodidacte et vous ProgElect.