Discussion :

[AirbusA330]

Bonjour a tous

J'utilise une petite Interface en Vb Net pour creer des Repertoire a chaque fois que l'on click sur un Bouton AJOUTER REP... Tout se passe bien simplement je voudrais associer une Icone a ce nouveau repertoir suivant un critère SELECT CASE:..........

Je me demande si cela est possible.

Merci de votre aide

[tomlev]

Je sais pas si c'est pareil sous Vista et Seven, mais sous XP il faut créer un fichier Desktop.ini (ou le modifier s'il existe déjà) pour y ajouter quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
[.ShellClassInfo]
IconFile=%SystemRoot%\system32\SHELL32.dll
IconIndex=165

Dans l'exemple ci-dessous, l'icone est dans la DLL shell32 à l'index 165. Si c'est juste un fichier icône, a priori tu peux mettre le chemin complet du fichier, et l'index 1 (ou 0, je sais plus)

Ce fichier est supposé avoir les attributs suivants :
- Système
- Caché

Donc tu pourrais faire une méthode dans ce style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub SetFolderIcon(Dim folderPath As String, Dim iconPath As String)
    Dim iniFilePath As String = Path.Combine(folderPath, "Desktop.ini")
    Using writer As New StreamWriter(iniFilePath)
        writer.WriteLine("[.ShellClassInfo]")
        writer.WriteLine("IconFile={0}", iconPath)
        writer.WriteLine("IconIndex=1")
    End Using
    File.SetAttributes(iniFilePath, FileAttributes.Hidden Or FileAttributes.System)
End Sub

Attention, ce code ne gère pas le cas où le fichier Desktop.ini existe déjà ; s'il existe, il sera écrasé... Si tu veux faire ça plus proprement, tu peux utiliser la classe IniFile dans la librairie Dvp.NET :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub SetFolderIcon(Dim folderPath As String, Dim iconPath As String)
    Dim iniFilePath As String = Path.Combine(folderPath, "Desktop.ini")
    Dim ini As New IniFile(iniFilePath)
    ini(".ShellClassInfo", "IconFile") = iconPath
    ini(".ShellClassInfo", "IconIndex") = "1"
    ini.Save()
    File.SetAttributes(iniFilePath, FileAttributes.Hidden Or FileAttributes.System)
End Sub

[AirbusA330]

Je sais pas si c'est pareil sous Vista et Seven, mais sous XP il faut créer un fichier Desktop.ini (ou le modifier s'il existe déjà) pour y ajouter quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
[.ShellClassInfo]
IconFile=%SystemRoot%\system32\SHELL32.dll
IconIndex=165

Dans l'exemple ci-dessous, l'icone est dans la DLL shell32 à l'index 165. Si c'est juste un fichier icône, a priori tu peux mettre le chemin complet du fichier, et l'index 1 (ou 0, je sais plus)

Ce fichier est supposé avoir les attributs suivants :
- Système
- Caché

Donc tu pourrais faire une méthode dans ce style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub SetFolderIcon(Dim folderPath As String, Dim iconPath As String)
    Dim iniFilePath As String = Path.Combine(folderPath, "Desktop.ini")
    Using writer As New StreamWriter(iniFilePath)
        writer.WriteLine("[.ShellClassInfo]")
        writer.WriteLine("IconFile={0}", iconPath)
        writer.WriteLine("IconIndex=1")
    End Using
    File.SetAttributes(iniFilePath, FileAttributes.Hidden Or FileAttributes.System)
End Sub

Attention, ce code ne gère pas le cas où le fichier Desktop.ini existe déjà ; s'il existe, il sera écrasé... Si tu veux faire ça plus proprement, tu peux utiliser la classe IniFile dans la librairie Dvp.NET :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub SetFolderIcon(Dim folderPath As String, Dim iconPath As String)
    Dim iniFilePath As String = Path.Combine(folderPath, "Desktop.ini")
    Dim ini As New IniFile(iniFilePath)
    ini(".ShellClassInfo", "IconFile") = iconPath
    ini(".ShellClassInfo", "IconIndex") = "1"
    ini.Save()
    File.SetAttributes(iniFilePath, FileAttributes.Hidden Or FileAttributes.System)
End Sub

Merci Pour ton aide , comme je suis encore debutant il va falloir que je me penche un peu sur ton code et le comprendre. Une question le fichier Desktop.ini s'il existe , une fois changé , ca ne va pas affecter les icones des autres dossier ( question qui me passe par la tete)

Merci

[tomlev]

Une question le fichier Desktop.ini s'il existe , une fois changé , ca ne va pas affecter les icones des autres dossier ( question qui me passe par la tete)

non, ça change seulement le dossier qui contient le fichier Desktop.ini

[Vincent_04]

Génial, Thomas!

La classe IniFile, c'est pile ce que je cherche depuis un paquet de temps et que je n'arrive pas à me faire proprement.
De la même manière on peut donc aussi ajouter un "InfoTip" dans la section [.ShellClassInfo].
Je crois que WriteLine met des guillemets à chaque ligne, peut-être qu'il faut utiliser PrintLine? à tester.

Question : pourquoi les modifications opérées par programme ne sont-elles pas reflétées par l'affichage du dosier dans l'explorateur (icone personnalisée, infotip, etc.) ?
Créer in "Desktop.ini" avec l'attribut "fichier systeme" semble ne pas suffire. Que faut-il faire d'autre?

Merci!!

Vincent

[tomlev]

Je crois que WriteLine met des guillemets à chaque ligne, peut-être qu'il faut utiliser PrintLine? à tester.

Non, StreamWriter.WriteLine ne met pas de guillemets (sauf évidemment si tu les mets dans la chaine à écrire...). Le PrintLine dont tu parles, c'est celui du module FileSystem ? Evite d'utiliser ça, ça existe uniquement pour la compatibilité avec VB6. Utilise plutôt les classes du namespace System.IO

Question : pourquoi les modifications opérées par programme ne sont-elles pas reflétées par l'affichage du dosier dans l'explorateur (icone personnalisée, infotip, etc.) ?
Créer in "Desktop.ini" avec l'attribut "fichier systeme" semble ne pas suffire. Que faut-il faire d'autre?

Sous quel OS ? Je crois que j'avais testé sous XP, ça fonctionnait. Mais je viens de retester sous Seven, et ça marche pas... Seven (et pt-être Vista aussi) doit gérer ça différemment

[Vincent_04]

Non, StreamWriter.WriteLine ne met pas de guillemets (sauf évidemment si tu les mets dans la chaine à écrire...). Le PrintLine dont tu parles, c'est celui du module FileSystem ?

Exact. faut que j'utilise un StreamWriter. C'était un vieux souvenir...

Sous quel OS ? Je crois que j'avais testé sous XP, ça fonctionnait. Mais je viens de retester sous Seven, et ça marche pas... Seven (et pt-être Vista aussi) doit gérer ça différemment

Sous XP. Bon si tu dis que ça marche, je retente le coup.
J'ai un autre pb avec la classe Inifile... J'ai bien peur qu'il y ait un bug dans le contructeur. New renvoie une erreur si je spécifie des parmètres. Et si je crée une instance vide, lui attribue un fileName et la reloade, même erreur. Et comme je suis armoire en C++...
Dommage!!

--edit--
Je viens de voir que tu es l'auteur de IniFile. Désolé pour l'histoire du bug... Il y a un truc que je ne dois pas faire correctement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myDesktopIni = New IniFile("INIfileFullPath",True)

Je reçois le message d'exception :

Un élément avec la même clé a déjà été ajouté.

--/edit--

Merci bien pour tes réponses

vincentmichel.eu

[tomlev]

Sous XP. Bon si tu dis que ça marche, je retente le coup.

Bon, je croyais avoir testé, mais apparemment je croyais mal
Ca peut pas marcher, parce qu'il y a un bug dans IniFile qui fait qu'il ne gère pas les noms de section qui contiennent un point, comme ".ShellClassInfo"

Par contre, après correction, ça fonctionne bien sous XP...

Et comme je suis armoire en C++...

Pas grave, c'est du C#

Je viens de voir que tu es l'auteur de IniFile. Désolé pour l'histoire du bug... Il y a un truc que je ne dois pas faire correctement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myDesktopIni = New IniFile("INIfileFullPath",True)

Je reçois le message d'exception : "Un élément avec la même clé a déjà été ajouté".

A priori c'est lié au bug mentionné plus haut. Si je comprends bien ce qui se passe, la première exécution ne doit pas causer d'erreur, mais la suivante oui...

Ce sera corrigé dans la prochaine version de la lib Dvp.NET. En attendant, si tu veux corriger toi même, il faut modifier une expression régulière dans IniFile.cs :

Ancien code :

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

private static readonly Regex _regexSection = new Regex(@"\s*\[\s*([\w\s]+)\]", RegexOptions.Compiled);

Nouveau code :

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

private static readonly Regex _regexSection = new Regex(@"\s*\[\s*([\.\w\s]+)\]", RegexOptions.Compiled);

Le code VB avec lequel j'ai testé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub SetFolderIcon(ByVal folderPath As String, ByVal iconPath As String)
    Dim iniFilePath As String = Path.Combine(folderPath, "Desktop.ini")
    Dim attr As FileAttributes
    Dim ini As IniFile
    If File.Exists(iniFilePath) Then
        attr = File.GetAttributes(iniFilePath)
        File.SetAttributes(iniFilePath, attr And Not (FileAttributes.System Or FileAttributes.Hidden))
        ini = New IniFile(iniFilePath)
    Else
        attr = FileAttributes.System Or FileAttributes.Hidden
        ini = New IniFile()
    End If
    ini(".ShellClassInfo", "IconFile") = iconPath
    ini(".ShellClassInfo", "IconIndex") = "0"
    ini.FileName = iniFilePath
    ini.Save()
    File.SetAttributes(iniFilePath, attr)
End Sub
 
Sub RemoveFolderIcon(ByVal folderPath As String)
    Dim iniFilePath As String = Path.Combine(folderPath, "Desktop.ini")
    If File.Exists(iniFilePath) Then
        Dim attr As FileAttributes = File.GetAttributes(iniFilePath)
        File.SetAttributes(iniFilePath, attr And Not (FileAttributes.System Or FileAttributes.Hidden))
        Dim ini As IniFile = New IniFile(iniFilePath)
        If ini.Sections.ContainsKey(".ShellClassInfo") Then
            ini.Sections(".ShellClassInfo").Remove("IconFile")
            ini.Sections(".ShellClassInfo").Remove("IconIndex")
            ini.FileName = iniFilePath
            ini.Save()
        End If
        File.SetAttributes(iniFilePath, attr)
    End If
End Sub

Remarque que j'enlève les attributs "système" et "caché" avant de modifier le fichier, et que je les remets après : sinon j'ai une erreur "accès refusé", du moins sous Seven

[Vincent_04]

salut Thomas,

Vraiment merci pour tes réponses, c'est nikel! Je comprends tout.
Quand on est patient avec les polios, on s'en débarrase plus vite parce qu'ils comprennent tout de suite!!

Bon, je suis reparti de zéro en m'inspirant vaguement de la logique de ton IniFile.cs.
Le fichier INI est lu et son contenu est copié dans une variable tableau. Toutes les modifications sont effectuées dans cette variable et ne sont reportées dans le fichier INI que par la procédure Save(), par un WriteAllText.
Quand il faut ajouter une clé, je l'insère dans l'entrée du tableau qui suit avec un VBCR, je Join() le tableau avec VBCR et je re-Split() avec VBCR. Super pratique!
Ensuite, elles sont détruites par la procédure Close().
C'était plus simple pour moi.
Je viens de faire quelques tests, ça a l'air de rouler.

Désolé pour le bug à cause du point dans le nom de la section!!

Envoyé par Vincent_04
Et comme je suis armoire en C++...

Pas grave, c'est du C#

Par contre, j'ai un beau fichier desktop.ini dans mon dossier mais l'explorateur ne montre aucune des personnalisasations, ni icone, ni infotip... Je fais F5 ou je ferme puis rouvre, ça change que dalle...
Il y a donc une autre manip à faire, ça confirme mon souvenir.
- Laquelle???
Dans le temps, avec W98, il y avait un truc qui s'appelait persitmoniker ou persist... ça doit tjrs exister mais ailleurs. je ne sais pas ce que c'est ce truc!
T'as pas une idée?