AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 06 23:32:01
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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


Information sur la source

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 : 12 854
Auteur : Cacophrene Ecrire un message privé
Note :
7,83 / 10 - par 6 personnes
7,83 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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

Commentaires et avis

signaler à un administrateur
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

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

pratique.
ne fonctionne que sous XP & 2003 ?

PCPT

signaler à un administrateur
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

signaler à un administrateur
Commentaire de jrbleboss le 18/08/2005 11:29:50

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

signaler à un administrateur
Commentaire de CsM Skate le 18/08/2005 13:47:34

Salut,
bien pratique ton code. Merci ;)

signaler à un administrateur
Commentaire de Scalpweb le 19/08/2005 10:47:50

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

signaler à un administrateur
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 !

signaler à un administrateur
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

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

pas possible sous W9x/ME ;)

signaler à un administrateur
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...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


Samsung CLX-3175FW Multifunction Laser Colour Printer Laser
Entre 389€ et 469€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto Cockpit Airbus A320
Photo homme nuPhoto biberon dragées pour baptême

Visiter la photothèque


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
Temps d'éxécution de la page : 0,359 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.