Créer un dossier avec une icône personnalisée

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 432 fois - Téléchargée 28 fois

Commenter

Contenu du snippet

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 / Exemple : 


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

A voir également

Ajouter un commentaire

Commentaires

Signaler
origamiste
Messages postés
6
Date d'inscription
vendredi 16 septembre 2005
Statut
Membre
Dernière intervention
11 novembre 2007
 -
Ces lignes de codes correspondent parfaitement à la demande de mon chef. Merci beaucoup. J'ai encore un détail à résoudre : faire un autorun...
Signaler
PCPT
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
 29 -
pas possible sous W9x/ME ;)
Signaler
Cacophrene
Messages postés
263
Date d'inscription
lundi 29 mars 2004
Statut
Membre
Dernière intervention
4 mars 2008
 -
Salut !

Clock, je crois que cette source fonctionen sous VB6... mais par contre pour Win 98 SE je n'en sais rien du tout. Je ne me souviens même pas si on pouvait personnaliser les icônes des dossiers sous Win 98... Il faudrait trouver un utilisateur de Win 98 qui connaisse bien le truc.

Cordialement,
Cacophrène
Signaler
clock
Messages postés
6
Date d'inscription
mercredi 13 octobre 2004
Statut
Membre
Dernière intervention
9 décembre 2007
 -
Salut Cacophrene ,

Je suis encore un inconditionnel de windows 98 SE
et en plus J'ai une version VB 6 initial.
Et ton code m'interresse grandement pour pouvoir appliquer
une îcone - dossier sur des Programmes enregistrés dans le code
source .net et ceux dont la source est en VB6........
si tu peux adapter ta source pour quelle fonctionne sous VB6
biensur je pourrais le faire , mais je suis un très grand débutant !
Et de plus je t'en serais reconnaissant !!
Merci d'avance !
Signaler
Scalpweb
Messages postés
1468
Date d'inscription
samedi 13 mars 2004
Statut
Membre
Dernière intervention
5 mai 2010
 -
Et ben écoute ça m'aide bien ton code ;-)
Merci à toi.
Afficher les 10 commentaires
S'inscrire maintenant

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.

Du même auteur (Cacophrene)