Créer un dossier avec une icône personnalisée
Soyez le premier à donner votre avis sur cette source.
Snippet vu 18 452 fois - Téléchargée 28 fois
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.
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...
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
- Créer un dossier avec une icône personnalisée
- CopyFolder en gardant l'icone personnalisée du dossier ✓ - Forum - Visual Basic 6
- Créer un dossier puis en modifier l'icône ✓ - Forum - Visual Basic
- Creer un dossier tout simplement - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Visual Basic / VB.NET : Créer un ani + extraction d'icones : exico 3.1 - CodeS SourceS - Guide
- Créer un dossier (ou sous dossier) - Codes sources - Visual Basic / VB.NET (API)
Commentaires
- Messages postés
- 13281
- Date d'inscription
- lundi 13 décembre 2004
- Statut
- Modérateur
- Dernière intervention
- 3 février 2018
30- Messages postés
- 263
- Date d'inscription
- lundi 29 mars 2004
- Statut
- Membre
- Dernière intervention
- 4 mars 2008
1Clock, 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
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 !
- Messages postés
- 1468
- Date d'inscription
- samedi 13 mars 2004
- Statut
- Membre
- Dernière intervention
- 5 mai 2010
1Merci à toi.
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.