Autres Copie de répertoire (mais avec son icone)

[Michou9]

Bonjour à tous
J'utilise une macro pour copier des dossiers
Mais bizarrement lors de cette copie je perds son icone
Je ne comprends pas d'où cela peut venir
Et je viens chercher de l'aide sur le Forum
J'utilise Excel 2007

Sub CopieDossier()
Dim fs As Object, copie As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set copie = fs.GetFolder _
("C:\M\MonDossier")
copie.Copy "F:\Repertoire\A\1\"
End Sub

 

[TooFatBoy]

J'ai demandé l'avis de Copilot sur la commande DOS.

Il me dit que sur Windows 10/11 robocopy est plus rapide et plus fiable.

Comme quoi ces cochonneries de Pseudo Intelligences Totalement Artificielles n'en sont pas à une ânerie près, surtout quand elles ne comprennent pas correctement la question.

Tout le monde, sauf la PITA bien sûr..., avait compris que quand je parlais de commande "DOS" lancée par l'instructionVBA Shell, je parlais d'une ligne de commande mais pas vraiment sous MS-DOS puisqu'il n'existe plus en tant que tel (d'où les guillemets).
Donc la commande Rbocopy étant elle-même incluse dans lesdites commandes "DOS", elle ne saurait être plus (ou moins) ceci ou cela qu'une commande "DOS" dont elle fait partie !

Ceci dit, merci pour ta recherche et ton retour. 👍

 

[patricktoulon]

robocopy n'a pas de versionning
il evolue avec les version de windows
notament avec le rtry et les dossier reseau
ce qui est cohérent avec les versions windows actuelles
donc dire qu'il n'est pas plus ceci ou cela est faux
en effet certaines commande n'existait pas sous win7
et avec win 11 on a vu les améliorations SMB

mais on peu dire qu'a chaque version de win il evolue
à la différence de copy et xcopy
xcopy saute les erreurs pas de retry
exemple

xcopy "Chemin\Source" "Chemin\Destination" /E /I /H /C /Y /K

on constate quand même que l'argument /E est le même que robocopy et fait la même chose
pour info

DOS---> COPY basique
Windows 9x/NT---> XCOPY intermédiaire
Windows moderne --->ROBOCOPY avancé