Discussion :

[Angelus1753]

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 :

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

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

[l_autodidacte]

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."

[Angelus1753]

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.

[l_autodidacte]

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

[ProgElecT]

Salut Angelus1753 et l_autodidacte

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

Code :

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

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

[Angelus1753]

Bonjour ProgElect, content de vous revoir.

il y a une erreur en ligne 8

[ProgElecT]

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.