CopyFolder en gardant l'icone personnalisée du dossier [Résolu]

Messages postés
377
Date d'inscription
lundi 3 avril 2006
Statut
Membre
Dernière intervention
22 août 2018
- - Dernière réponse : CerberusPau
Messages postés
377
Date d'inscription
lundi 3 avril 2006
Statut
Membre
Dernière intervention
22 août 2018
- 10 avril 2010 à 13:32
Bonjour à tous,

C'est tout bête, mais je n'ai pas trouvé après moultes recherches.
J'ai un répertoire au réseau dont l'icône est personnalisée (fichier desktop.ini pointant vers %SystemRoot%\system32\SHELL32.dll)
Je copie ce répertoire ailleurs sur un PC utilisateur avec fso.copyfolder dans un code VBA.
Tout va bien, le desktop.ini est bien présent dans le répertoire copié, mais l'icône personnalisée ne remonte pas...
Mais que manque-t'il donc dans mon code SVP ?

sub MajInstall()
Set fs = CreateObject("Scripting.FileSystemObject")
UserInstallExist = Dir("C:\Install", vbDirectory) 'vérifie l'existence de Install sur le PC User
If UserInstallExist = "" Then fs.copyfolder "\\Lan\Install", "C:\Install", True 'Copie Install s'il n'existe pas sur le PC User
End sub


Merci beaucoup pour toute aide

Rataxes64
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
377
Date d'inscription
lundi 3 avril 2006
Statut
Membre
Dernière intervention
22 août 2018
3
Merci
Re...
Ben voilà, faut chercher dans les ...archives.
Merci à
Cacophrene (http://www.vbfrance.com/codes/CREER-DOSSIER-AVEC-ICONE-PERSONNALISEE_33287.aspx)
à MasterHack (http://www.vbfrance.com/code.aspx?id=25390)
et un petit coucou à DarkSidious au passage.
j'ai pu extraire de ces sources les 2 lignes qui me manquaient.

Voila le code complet qui me garde mon icône personnalisée (desktop.ini existant) après un copyfolder

sub MajInstall()
Set fs = CreateObject("Scripting.FileSystemObject")
UserInstallExist = Dir("C:\Install", vbDirectory) 'vérifie l'existence de Install sur le PC User
If UserInstallExist = "" Then fs.copyfolder "\\Lan\Install", "C:\Install", True 'Copie Install s'il n'existe pas sur le PC User
SetAttr "C:\Install", vbSystem
SetAttr "C:\Install\Desktop.ini", vbSystem + vbHidden
End sub


En espérant vous avoir été utile, et en vous remerciant de votre lecture

Rataxes64


Rataxes64

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 111 internautes nous ont dit merci ce mois-ci

Commenter la réponse de CerberusPau

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.