Accueil > > > CRÉER UN DOSSIER AVEC UNE ICÔNE PERSONNALISÉE
 CRÉER UN DOSSIER AVEC UNE ICÔNE PERSONNALISÉE
 Information sur la source
 Description
Ce code n'est tout au plus qu'une astuce. Je le mets ici parce que je l'ai cherché longuement sans le trouver. Je tiens à signaler que c'est une source de MasterHack (http://www.vbfrance.com/code.aspx?id=25390) qui m'a permis de conclure (un merci aussi à DarkSidious pour l'intérêt qu'il a porté à ma question dans le forum). Concrètement, il s'agit de créer un dossier (MkDir, très simple) avec une icône personnalisée (et pas cette icône jaune et moche que Windows place par défaut...). Tout le monde pense au fichier ini. Seulement, il faut aussi que le dossier auquel on veut appliquer l'icône personnalisée soit en vbSystem.
 Source
- Sub DossierIcône(sDossier As String)
- 'Création du dossier
- MkDir sDossier
- 'Ecriture du fichier ini (Chemin du fichier, index de l'icône dans le fichier, commutateur
- 'pour éviter un message en cas de suppression du fichier ini, et enfin info facultative)
- Open sDossier & "\Desktop.ini" For Output As #1
- Print #1, "[.ShellClassInfo]" & vbCrLf & "IconFile=" _
- & sChemin & "Dossier.ico" & vbCrLf & "IconIndex=0" & _
- vbCrLf & "ConfirmFileOp=0" & vbCrLf & "InfoTip=Dossier" & _
- " avec une icône personnalisée"
- Close
- 'POINT IMPORTANT : le DOSSIER est défini comme Système
- SetAttr sDossier, vbSystem
- 'Le fichier desktop.ini est défini comme Système et Caché
- SetAttr sDossier & "\Desktop.ini", vbSystem + vbHidden
- End Sub
Sub DossierIcône(sDossier As String)
'Création du dossier
MkDir sDossier
'Ecriture du fichier ini (Chemin du fichier, index de l'icône dans le fichier, commutateur
'pour éviter un message en cas de suppression du fichier ini, et enfin info facultative)
Open sDossier & "\Desktop.ini" For Output As #1
Print #1, "[.ShellClassInfo]" & vbCrLf & "IconFile=" _
& sChemin & "Dossier.ico" & vbCrLf & "IconIndex=0" & _
vbCrLf & "ConfirmFileOp=0" & vbCrLf & "InfoTip=Dossier" & _
" avec une icône personnalisée"
Close
'POINT IMPORTANT : le DOSSIER est défini comme Système
SetAttr sDossier, vbSystem
'Le fichier desktop.ini est défini comme Système et Caché
SetAttr sDossier & "\Desktop.ini", vbSystem + vbHidden
End Sub
 Conclusion
Comme vous l'avez vu, il faut que le dossier soit mis en Système. C'était la petite astuce... pas grand chose, mais bon, si c'est utile...
 Historique
- 17 août 2005 21:10:17 :
- Petits problèmes d'affichage
- 17 août 2005 21:20:58 :
- Orthographe
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Extraire l'icône d'un raccourcis sans la flèche [ par Kevin.Ory ]
Bonjour tout le monde!Je créer une petite barre d'outils qui affiche les éléments contenu dans un dossier (dossier, fichier divers, raccourcis..) sous
Comment faire un raccourcis relatif ave icône ? [ par rt15 ]
Les applications ont souvent besoins d'un certain nombre de fichiers dans le même répertoire que l'exe. Je souhaiterais que mes applications soient ut
personnaliser l'icône d'une form VB [ par gilmerl ]
Bonsoir chers j'ai voulu personnalisé l'icône les feuilles de mon projet sous VB6; pour ce, j'ai copie au préalable dans un repertoire du dossier de
Personnaliser l'image du dossier dans l'affichage de son icône [ par fxdarphin ]
Bonjour,Je suis sous Windows Vista. J'ai plusieurs dossiers: Dossiers 1, Dossier2, Dossier3 etc...Sous chaque dossier Dossierx j'ai des sous-dossiers
Créer un dossier puis en modifier l'icône [ par Cacophrene ]
Salut à tous ! Une petite chose m'embête depuis quelques temps : je souhaite modifier l'icône d'un dossier créé à l'aid
Créer un dossier puis en modifier l'icône [ par Cacophrene ]
Salut à tous ! Une petite chose m'embête depuis quelques temps : je souhaite modifier l'icône d'un dossier créé à l'aid
Taille de dossier sur le disque [ par Jamytheboss ]
Comment faire pour avoir la taille d'un dossier (pas un fichier) sur le disque. Ceci, sans être obligé de le parcourir et de sommer la taill
Dossier windows. [ par moi4975 ]
salut à tous,Voila je cherche un petit code qui permet de trouve l'emplacement du fichier WindowsSouvent c'est C:\WINDOWS mais j'aimerais trouver
Mettre un fichier exe dans un dossier [ par wassman ]
Slt, Je voudrais savoir si on peut placer un fichier qui ne sont pas déjà sur l'ordinateur dans un dossier qu'on vient de créer Merc
Insérer une icône dans un userform [ par peyronnx ]
Bonjour à tous Voila plusieurs jours que je me galère à essayer d'insérer une icône (format .ico) dans un formulaire excel en vba mais sans succès. L
|
Derniers Blogs
 SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko
Logiciels
 Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning
|