begin process at 2010 02 10 01:45:52
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Trucs & Astuces

 > CRÉER UN DOSSIER AVEC UNE ICÔNE PERSONNALISÉE

CRÉER UN DOSSIER AVEC UNE ICÔNE PERSONNALISÉE


 Information sur la source

Note :
7,83 / 10 - par 6 personnes
7,83 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Trucs & Astuces Classé sous :personnaliser, icône, dossier Niveau :Débutant Date de création :17/08/2005 Date de mise à jour :17/08/2005 21:20:58 Vu :13 969
Auteur : Cacophrene

Ecrire un message privé
Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

 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

Source avec Zip Source avec une capture CAVALIER D'EULER - RÈGLE DE WARNSDORFF
Source avec Zip Source avec une capture COLORATION SYNTAXIQUE
Source avec Zip TROIS ALGORITHMES POUR LA SUITE DE FIBONACCI
Source avec Zip Source avec une capture ENVELOPPE CONVEXE D'UN NUAGE DE POINTS
Source avec Zip Source avec une capture CONVERTIR DES CHIFFRES ROMAINS EN CHIFFRES ARABES
Toutes les sources de Cacophrene

 Sources de la même categorie

AFFICHAGE SOUS EXCEL DE LA LISTE DES ' DES GROUPES par djebbipgm
AFFECTATION D'UNE ICÔNE À UN DOSSIER DANS L'EXPLORATEUR par djebbipgm
Source avec Zip CREATION DE GADGET EN VB6 par djebbipgm
Source avec Zip Source avec une capture CAPTEUR DE HANDLE, DE TITRE, DE CLASS, DE POSITION DE TAILLE... par Sechaud
Source avec Zip Source avec une capture COULEUR DANS UN RICHTEXTBOX SANS MODIFIER SELSTART OU SELLEN... par Renfield
Toutes les sources de la catégorie Trucs & Astuces

 Sources en rapport avec celle ci

AFFECTATION D'UNE ICÔNE À UN DOSSIER DANS L'EXPLORATEUR par djebbipgm
CRÉATION DE SOUS-RÉPERTOIRE À PARTIR DU MENU CONTEXTUEL par djebbipgm
Source avec Zip LA NOUVELLE VERSION DU NEW FOLDER LOOK EN FRANÇAIS par 4every1
Source avec Zip UN PROGRAMME POUR PERSONNALISER LES DOSSIERS DE WINDOWS par 4every1
Source avec Zip CHANGER LES ICONES DES DOSSIERS par Kreator

Commentaires et avis

Commentaire de Cacophrene le 17/08/2005 21:13:03

Bonjour à tous !

Une chose que je n'ai pas cru bon de préciser... J'écris :
      sChemin & "Dossier.ico"
pour la ligne IconFile. C'est un exemple. L'icône peut se trouver dans n'importe quel répertoire. sDossier désigne le chemin du dossier à créer (par exemple c:\mon dossier), et sChemin  = App.Path & IIf(Len(App.Path) = 3,Empty, "\") car la barre oblique doit toujours être présente.

Voilà tout !

Cordialement,
Cacophrène

Commentaire de PCPT le 17/08/2005 22:19:16 administrateur CS

pratique.
ne fonctionne que sous XP & 2003 ?

PCPT

Commentaire de Cacophrene le 18/08/2005 07:19:26

Salut PCPT !

Je sais que cela fonctionne sous XP Pro et XP Familial. Je n'ai pas pu tester sur les autres systèmes.

Cordialement,
Cacophrène

Commentaire de jrbleboss le 18/08/2005 11:29:50

Très pratique !!!!!
Bien !!!
JRB

Commentaire de CsM Skate le 18/08/2005 13:47:34

Salut,
bien pratique ton code. Merci ;)

Commentaire de Scalpweb le 19/08/2005 10:47:50

Et ben écoute ça m'aide bien ton code ;-)
Merci à toi.

Commentaire de clock le 04/12/2005 13:29:49

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 !

Commentaire de Cacophrene le 12/03/2006 14:26:16

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

Commentaire de PCPT le 12/03/2006 14:43:50 administrateur CS

pas possible sous W9x/ME ;)

Commentaire de origamiste le 03/11/2006 15:29:38

Ces lignes de codes correspondent parfaitement à la demande de mon chef. Merci beaucoup. J'ai encore un détail à résoudre : faire un autorun...

 Ajouter un commentaire


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


Nos sponsors


Sondage...

Comparez les prix


iPod touch 8Go - 2ème génération
Entre 189€ et 224€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,624 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)